19: --p_description IN VARCHAR2
20:
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
20:
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
21: PROCEDURE Create_Project_Template(
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
29: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
22: p_api_version IN NUMBER :=1.0,
23: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
24: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
25: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
26: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
27: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
28: p_debug_mode IN VARCHAR2 :='N',
29: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
30: p_project_number IN VARCHAR2,
68: IF (p_debug_mode = 'Y') THEN
69: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Create_Project_Template begin');
70: END IF;
71:
72: IF (p_commit = FND_API.G_TRUE) THEN
73: savepoint Create_Project_Template;
74: END IF;
75:
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
72: IF (p_commit = FND_API.G_TRUE) THEN
73: savepoint Create_Project_Template;
74: END IF;
75:
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80:
73: savepoint Create_Project_Template;
74: END IF;
75:
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80:
81: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80:
81: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
82: FND_MSG_PUB.initialize;
83: END IF;
84:
85: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
91: --dbms_output.put_line( 'Before Check_OrgName_Or_Id' );
92:
93: IF p_organization_id = -9999
94: THEN
95: l_organization_id := FND_API.G_MISS_NUM;
96: ELSE
97: l_organization_id := p_organization_id;
98: END IF;
99:
98: END IF;
99:
100: IF p_organization_name = 'JUNK_CHARS'
101: THEN
102: l_organization_name := FND_API.G_MISS_CHAR;
103: ELSE
104: l_organization_name := p_organization_name;
105: END IF;
106:
113: ,x_return_status => l_return_status
114: ,x_error_msg_code => l_error_msg_code);
115:
116: -- added for Bug fix: 4537865
117: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
118: l_organization_id := l_new_organization_id;
119: END IF;
120: -- added for Bug fix: 4537866
121:
118: l_organization_id := l_new_organization_id;
119: END IF;
120: -- added for Bug fix: 4537866
121:
122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
123: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
124: p_msg_name => l_error_msg_code);
125: END IF;
126:
126:
127: END IF; --End Name-Id Conversion
128: END IF;
129:
130: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
131: x_msg_count := FND_MSG_PUB.count_msg;
132: IF x_msg_count = 1 then
133: pa_interface_utils_pub.get_messages
134: (p_encoded => FND_API.G_TRUE,
130: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
131: x_msg_count := FND_MSG_PUB.count_msg;
132: IF x_msg_count = 1 then
133: pa_interface_utils_pub.get_messages
134: (p_encoded => FND_API.G_TRUE,
135: p_msg_index => 1,
136: p_msg_count => l_msg_count,
137: p_msg_data => l_msg_data,
138: p_data => l_data,
138: p_data => l_data,
139: p_msg_index_out => l_msg_index_out);
140: x_msg_data := l_data;
141: END IF;
142: raise FND_API.G_EXC_ERROR;
143: END IF;
144:
145: --dbms_output.put_line( 'Before calling PA_PROJ_TEMPLATE_SETUP_PVT.Create_Project_Template ' );
146:
170: ,x_return_status => l_return_status
171: ,x_msg_count => l_msg_count
172: ,x_msg_data => l_msg_data );
173:
174: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
175: x_msg_count := FND_MSG_PUB.count_msg;
176: IF x_msg_count = 1 then
177: pa_interface_utils_pub.get_messages
178: (p_encoded => FND_API.G_TRUE,
174: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
175: x_msg_count := FND_MSG_PUB.count_msg;
176: IF x_msg_count = 1 then
177: pa_interface_utils_pub.get_messages
178: (p_encoded => FND_API.G_TRUE,
179: p_msg_index => 1,
180: p_msg_count => l_msg_count,
181: p_msg_data => l_msg_data,
182: p_data => l_data,
182: p_data => l_data,
183: p_msg_index_out => l_msg_index_out);
184: x_msg_data := l_data;
185: END IF;
186: raise FND_API.G_EXC_ERROR;
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
185: END IF;
186: raise FND_API.G_EXC_ERROR;
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: IF (p_commit = FND_API.G_TRUE) THEN
192: COMMIT;
193: END IF;
187: END IF;
188:
189: x_return_status := FND_API.G_RET_STS_SUCCESS;
190:
191: IF (p_commit = FND_API.G_TRUE) THEN
192: COMMIT;
193: END IF;
194:
195: IF (p_debug_mode = 'Y') THEN
195: IF (p_debug_mode = 'Y') THEN
196: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Create_Project_Template END');
197: END IF;
198: EXCEPTION
199: when FND_API.G_EXC_ERROR then
200: if p_commit = FND_API.G_TRUE then
201: rollback to Create_Project_Template;
202: end if;
203: x_return_status := FND_API.G_RET_STS_ERROR;
196: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Create_Project_Template END');
197: END IF;
198: EXCEPTION
199: when FND_API.G_EXC_ERROR then
200: if p_commit = FND_API.G_TRUE then
201: rollback to Create_Project_Template;
202: end if;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: when FND_API.G_EXC_UNEXPECTED_ERROR then
199: when FND_API.G_EXC_ERROR then
200: if p_commit = FND_API.G_TRUE then
201: rollback to Create_Project_Template;
202: end if;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: when FND_API.G_EXC_UNEXPECTED_ERROR then
205: if p_commit = FND_API.G_TRUE then
206: rollback to Create_Project_Template;
207: end if;
200: if p_commit = FND_API.G_TRUE then
201: rollback to Create_Project_Template;
202: end if;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: when FND_API.G_EXC_UNEXPECTED_ERROR then
205: if p_commit = FND_API.G_TRUE then
206: rollback to Create_Project_Template;
207: end if;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: rollback to Create_Project_Template;
202: end if;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: when FND_API.G_EXC_UNEXPECTED_ERROR then
205: if p_commit = FND_API.G_TRUE then
206: rollback to Create_Project_Template;
207: end if;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
204: when FND_API.G_EXC_UNEXPECTED_ERROR then
205: if p_commit = FND_API.G_TRUE then
206: rollback to Create_Project_Template;
207: end if;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
210: p_procedure_name => 'Create_Project_Template',
211: p_error_text => SUBSTRB(SQLERRM,1,240));
212: when OTHERS then
209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
210: p_procedure_name => 'Create_Project_Template',
211: p_error_text => SUBSTRB(SQLERRM,1,240));
212: when OTHERS then
213: if p_commit = FND_API.G_TRUE then
214: rollback to Create_Project_Template;
215: end if;
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
212: when OTHERS then
213: if p_commit = FND_API.G_TRUE then
214: rollback to Create_Project_Template;
215: end if;
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
218: p_procedure_name => 'Create_Project_Template',
219: p_error_text => SUBSTRB(SQLERRM,1,240));
220: raise;
242: --
243:
244: PROCEDURE Update_Project_Template(
245: p_api_version IN NUMBER :=1.0,
246: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
247: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
248: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
249: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
250: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
243:
244: PROCEDURE Update_Project_Template(
245: p_api_version IN NUMBER :=1.0,
246: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
247: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
248: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
249: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
250: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
251: p_debug_mode IN VARCHAR2 :='N',
244: PROCEDURE Update_Project_Template(
245: p_api_version IN NUMBER :=1.0,
246: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
247: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
248: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
249: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
250: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
251: p_debug_mode IN VARCHAR2 :='N',
252: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
245: p_api_version IN NUMBER :=1.0,
246: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
247: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
248: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
249: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
250: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
251: p_debug_mode IN VARCHAR2 :='N',
252: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
253: p_project_id IN NUMBER,
292: IF (p_debug_mode = 'Y') THEN
293: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Project_Template begin');
294: END IF;
295:
296: IF (p_commit = FND_API.G_TRUE) THEN
297: savepoint Update_Project_Template;
298: END IF;
299:
300: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
296: IF (p_commit = FND_API.G_TRUE) THEN
297: savepoint Update_Project_Template;
298: END IF;
299:
300: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: END IF;
303:
304:
297: savepoint Update_Project_Template;
298: END IF;
299:
300: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: END IF;
303:
304:
305: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: END IF;
303:
304:
305: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
306: FND_MSG_PUB.initialize;
307: END IF;
308:
309: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
315: --dbms_output.put_line( 'Before Check_OrgName_Or_Id' );
316:
317: IF p_organization_id = -9999
318: THEN
319: l_organization_id := FND_API.G_MISS_NUM;
320: ELSE
321: l_organization_id := p_organization_id;
322: END IF;
323:
322: END IF;
323:
324: IF p_organization_name = 'JUNK_CHARS'
325: THEN
326: l_organization_name := FND_API.G_MISS_CHAR;
327: ELSE
328: l_organization_name := p_organization_name;
329: END IF;
330:
336: ,x_organization_id => l_new_organization_id -- added for Bug fix: 4537865
337: ,x_return_status => l_return_status
338: ,x_error_msg_code => l_error_msg_code);
339: -- added for Bug fix: 4537865
340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
341: l_organization_id := l_new_organization_id;
342: END IF;
343: -- added for Bug fix: 4537865
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
340: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
341: l_organization_id := l_new_organization_id;
342: END IF;
343: -- added for Bug fix: 4537865
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
345: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
346: p_msg_name => l_error_msg_code);
347: END IF;
348:
348:
349: END IF; --End Name-Id Conversion
350: END IF;
351:
352: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
353: x_msg_count := FND_MSG_PUB.count_msg;
354: IF x_msg_count = 1 then
355: pa_interface_utils_pub.get_messages
356: (p_encoded => FND_API.G_TRUE,
352: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
353: x_msg_count := FND_MSG_PUB.count_msg;
354: IF x_msg_count = 1 then
355: pa_interface_utils_pub.get_messages
356: (p_encoded => FND_API.G_TRUE,
357: p_msg_index => 1,
358: p_msg_count => l_msg_count,
359: p_msg_data => l_msg_data,
360: p_data => l_data,
360: p_data => l_data,
361: p_msg_index_out => l_msg_index_out);
362: x_msg_data := l_data;
363: END IF;
364: raise FND_API.G_EXC_ERROR;
365: END IF;
366:
367: IF p_validate_only <> FND_API.G_TRUE
368: THEN
363: END IF;
364: raise FND_API.G_EXC_ERROR;
365: END IF;
366:
367: IF p_validate_only <> FND_API.G_TRUE
368: THEN
369: BEGIN
370: SELECT 'x' INTO l_dummy_char
371: FROM pa_projects_all
430:
431: IF l_msg_count > 0 THEN
432: x_msg_count := l_msg_count;
433: x_return_status := 'E';
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
436:
437: --dbms_output.put_line( 'Before calling PA_PROJ_TEMPLATE_SETUP_PVT.Update_Project_Template ' );
438:
462: ,x_return_status => l_return_status
463: ,x_msg_count => l_msg_count
464: ,x_msg_data => l_msg_data );
465:
466: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
467: x_msg_count := FND_MSG_PUB.count_msg;
468: IF x_msg_count = 1 then
469: pa_interface_utils_pub.get_messages
470: (p_encoded => FND_API.G_TRUE,
466: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
467: x_msg_count := FND_MSG_PUB.count_msg;
468: IF x_msg_count = 1 then
469: pa_interface_utils_pub.get_messages
470: (p_encoded => FND_API.G_TRUE,
471: p_msg_index => 1,
472: p_msg_count => l_msg_count,
473: p_msg_data => l_msg_data,
474: p_data => l_data,
474: p_data => l_data,
475: p_msg_index_out => l_msg_index_out);
476: x_msg_data := l_data;
477: END IF;
478: raise FND_API.G_EXC_ERROR;
479: END IF;
480:
481: x_return_status := FND_API.G_RET_STS_SUCCESS;
482:
477: END IF;
478: raise FND_API.G_EXC_ERROR;
479: END IF;
480:
481: x_return_status := FND_API.G_RET_STS_SUCCESS;
482:
483: IF (p_commit = FND_API.G_TRUE) THEN
484: COMMIT;
485: END IF;
479: END IF;
480:
481: x_return_status := FND_API.G_RET_STS_SUCCESS;
482:
483: IF (p_commit = FND_API.G_TRUE) THEN
484: COMMIT;
485: END IF;
486:
487: IF (p_debug_mode = 'Y') THEN
487: IF (p_debug_mode = 'Y') THEN
488: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Project_Template END');
489: END IF;
490: EXCEPTION
491: when FND_API.G_EXC_ERROR then
492: if p_commit = FND_API.G_TRUE then
493: rollback to Update_Project_Template;
494: end if;
495: x_return_status := FND_API.G_RET_STS_ERROR;
488: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Project_Template END');
489: END IF;
490: EXCEPTION
491: when FND_API.G_EXC_ERROR then
492: if p_commit = FND_API.G_TRUE then
493: rollback to Update_Project_Template;
494: end if;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: when FND_API.G_EXC_UNEXPECTED_ERROR then
491: when FND_API.G_EXC_ERROR then
492: if p_commit = FND_API.G_TRUE then
493: rollback to Update_Project_Template;
494: end if;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: when FND_API.G_EXC_UNEXPECTED_ERROR then
497: if p_commit = FND_API.G_TRUE then
498: rollback to Update_Project_Template;
499: end if;
492: if p_commit = FND_API.G_TRUE then
493: rollback to Update_Project_Template;
494: end if;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: when FND_API.G_EXC_UNEXPECTED_ERROR then
497: if p_commit = FND_API.G_TRUE then
498: rollback to Update_Project_Template;
499: end if;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: rollback to Update_Project_Template;
494: end if;
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: when FND_API.G_EXC_UNEXPECTED_ERROR then
497: if p_commit = FND_API.G_TRUE then
498: rollback to Update_Project_Template;
499: end if;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
496: when FND_API.G_EXC_UNEXPECTED_ERROR then
497: if p_commit = FND_API.G_TRUE then
498: rollback to Update_Project_Template;
499: end if;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
502: p_procedure_name => 'Update_Project_Template',
503: p_error_text => SUBSTRB(SQLERRM,1,240));
504: when OTHERS then
501: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
502: p_procedure_name => 'Update_Project_Template',
503: p_error_text => SUBSTRB(SQLERRM,1,240));
504: when OTHERS then
505: if p_commit = FND_API.G_TRUE then
506: rollback to Update_Project_Template;
507: end if;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
504: when OTHERS then
505: if p_commit = FND_API.G_TRUE then
506: rollback to Update_Project_Template;
507: end if;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
510: p_procedure_name => 'Update_Project_Template',
511: p_error_text => SUBSTRB(SQLERRM,1,240));
512: raise;
527: --
528:
529: PROCEDURE Delete_Project_Template(
530: p_api_version IN NUMBER :=1.0,
531: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
532: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
533: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
534: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
535: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
528:
529: PROCEDURE Delete_Project_Template(
530: p_api_version IN NUMBER :=1.0,
531: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
532: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
533: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
534: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
535: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
536: p_debug_mode IN VARCHAR2 :='N',
529: PROCEDURE Delete_Project_Template(
530: p_api_version IN NUMBER :=1.0,
531: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
532: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
533: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
534: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
535: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
536: p_debug_mode IN VARCHAR2 :='N',
537: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
530: p_api_version IN NUMBER :=1.0,
531: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
532: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
533: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
534: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
535: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
536: p_debug_mode IN VARCHAR2 :='N',
537: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
538: p_project_id IN NUMBER,
559: IF (p_debug_mode = 'Y') THEN
560: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Template begin');
561: END IF;
562:
563: IF (p_commit = FND_API.G_TRUE) THEN
564: savepoint Delete_Project_Template;
565: END IF;
566:
567: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
563: IF (p_commit = FND_API.G_TRUE) THEN
564: savepoint Delete_Project_Template;
565: END IF;
566:
567: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
569: END IF;
570:
571:
564: savepoint Delete_Project_Template;
565: END IF;
566:
567: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
569: END IF;
570:
571:
572: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
569: END IF;
570:
571:
572: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
573: FND_MSG_PUB.initialize;
574: END IF;
575:
576: IF p_validate_only <> FND_API.G_TRUE
572: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
573: FND_MSG_PUB.initialize;
574: END IF;
575:
576: IF p_validate_only <> FND_API.G_TRUE
577: THEN
578: BEGIN
579: SELECT 'x' INTO l_dummy_char
580: FROM pa_projects_all
639:
640: IF l_msg_count > 0 THEN
641: x_msg_count := l_msg_count;
642: x_return_status := 'E';
643: RAISE FND_API.G_EXC_ERROR;
644: END IF;
645:
646: PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Template(
647: p_api_version => p_api_version
657: ,x_return_status => l_return_status
658: ,x_msg_count => l_msg_count
659: ,x_msg_data => l_msg_data );
660:
661: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
662: x_msg_count := FND_MSG_PUB.count_msg;
663: IF x_msg_count = 1 then
664: pa_interface_utils_pub.get_messages
665: (p_encoded => FND_API.G_TRUE,
661: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
662: x_msg_count := FND_MSG_PUB.count_msg;
663: IF x_msg_count = 1 then
664: pa_interface_utils_pub.get_messages
665: (p_encoded => FND_API.G_TRUE,
666: p_msg_index => 1,
667: p_msg_count => l_msg_count,
668: p_msg_data => l_msg_data,
669: p_data => l_data,
669: p_data => l_data,
670: p_msg_index_out => l_msg_index_out);
671: x_msg_data := l_data;
672: END IF;
673: raise FND_API.G_EXC_ERROR;
674: END IF;
675:
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
672: END IF;
673: raise FND_API.G_EXC_ERROR;
674: END IF;
675:
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: IF (p_commit = FND_API.G_TRUE) THEN
679: COMMIT;
680: END IF;
674: END IF;
675:
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: IF (p_commit = FND_API.G_TRUE) THEN
679: COMMIT;
680: END IF;
681:
682: IF (p_debug_mode = 'Y') THEN
682: IF (p_debug_mode = 'Y') THEN
683: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Template END');
684: END IF;
685: EXCEPTION
686: when FND_API.G_EXC_ERROR then
687: if p_commit = FND_API.G_TRUE then
688: rollback to Delete_Project_Template;
689: end if;
690: x_return_status := FND_API.G_RET_STS_ERROR;
683: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Template END');
684: END IF;
685: EXCEPTION
686: when FND_API.G_EXC_ERROR then
687: if p_commit = FND_API.G_TRUE then
688: rollback to Delete_Project_Template;
689: end if;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: when FND_API.G_EXC_UNEXPECTED_ERROR then
686: when FND_API.G_EXC_ERROR then
687: if p_commit = FND_API.G_TRUE then
688: rollback to Delete_Project_Template;
689: end if;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: when FND_API.G_EXC_UNEXPECTED_ERROR then
692: if p_commit = FND_API.G_TRUE then
693: rollback to Delete_Project_Template;
694: end if;
687: if p_commit = FND_API.G_TRUE then
688: rollback to Delete_Project_Template;
689: end if;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: when FND_API.G_EXC_UNEXPECTED_ERROR then
692: if p_commit = FND_API.G_TRUE then
693: rollback to Delete_Project_Template;
694: end if;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: rollback to Delete_Project_Template;
689: end if;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: when FND_API.G_EXC_UNEXPECTED_ERROR then
692: if p_commit = FND_API.G_TRUE then
693: rollback to Delete_Project_Template;
694: end if;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
691: when FND_API.G_EXC_UNEXPECTED_ERROR then
692: if p_commit = FND_API.G_TRUE then
693: rollback to Delete_Project_Template;
694: end if;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
697: p_procedure_name => 'Delete_Project_Template',
698: p_error_text => SUBSTRB(SQLERRM,1,240));
699: when OTHERS then
696: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
697: p_procedure_name => 'Delete_Project_Template',
698: p_error_text => SUBSTRB(SQLERRM,1,240));
699: when OTHERS then
700: if p_commit = FND_API.G_TRUE then
701: rollback to Delete_Project_Template;
702: end if;
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
699: when OTHERS then
700: if p_commit = FND_API.G_TRUE then
701: rollback to Delete_Project_Template;
702: end if;
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
705: p_procedure_name => 'Delete_Project_Template',
706: p_error_text => SUBSTRB(SQLERRM,1,240));
707: raise;
723: --
724: --
725: PROCEDURE Add_Project_Options(
726: p_api_version IN NUMBER :=1.0,
727: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
728: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
729: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
730: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
731: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
724: --
725: PROCEDURE Add_Project_Options(
726: p_api_version IN NUMBER :=1.0,
727: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
728: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
729: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
730: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
731: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
732: p_debug_mode IN VARCHAR2 :='N',
725: PROCEDURE Add_Project_Options(
726: p_api_version IN NUMBER :=1.0,
727: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
728: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
729: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
730: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
731: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
732: p_debug_mode IN VARCHAR2 :='N',
733: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
726: p_api_version IN NUMBER :=1.0,
727: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
728: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
729: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
730: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
731: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
732: p_debug_mode IN VARCHAR2 :='N',
733: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
734: p_project_id IN NUMBER,
755: IF (p_debug_mode = 'Y') THEN
756: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Project_Options');
757: END IF;
758:
759: IF (p_commit = FND_API.G_TRUE) THEN
760: savepoint Add_Project_Options;
761: END IF;
762:
763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
759: IF (p_commit = FND_API.G_TRUE) THEN
760: savepoint Add_Project_Options;
761: END IF;
762:
763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
767:
760: savepoint Add_Project_Options;
761: END IF;
762:
763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
767:
768: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
767:
768: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
769: FND_MSG_PUB.initialize;
770: END IF;
771:
772: PA_PROJ_TEMPLATE_SETUP_PVT.Add_Project_Options(
784: ,x_return_status => l_return_status
785: ,x_msg_count => l_msg_count
786: ,x_msg_data => l_msg_data );
787:
788: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
789: x_msg_count := FND_MSG_PUB.count_msg;
790: IF x_msg_count = 1 then
791: pa_interface_utils_pub.get_messages
792: (p_encoded => FND_API.G_TRUE,
788: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
789: x_msg_count := FND_MSG_PUB.count_msg;
790: IF x_msg_count = 1 then
791: pa_interface_utils_pub.get_messages
792: (p_encoded => FND_API.G_TRUE,
793: p_msg_index => 1,
794: p_msg_count => l_msg_count,
795: p_msg_data => l_msg_data,
796: p_data => l_data,
796: p_data => l_data,
797: p_msg_index_out => l_msg_index_out);
798: x_msg_data := l_data;
799: END IF;
800: raise FND_API.G_EXC_ERROR;
801: END IF;
802:
803: x_return_status := FND_API.G_RET_STS_SUCCESS;
804:
799: END IF;
800: raise FND_API.G_EXC_ERROR;
801: END IF;
802:
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: END IF;
802:
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
809: IF (p_debug_mode = 'Y') THEN
810: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Project_Options END');
811: END IF;
812: EXCEPTION
813: when FND_API.G_EXC_ERROR then
814: if p_commit = FND_API.G_TRUE then
815: rollback to Add_Project_Options;
816: end if;
817: x_return_status := FND_API.G_RET_STS_ERROR;
810: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Project_Options END');
811: END IF;
812: EXCEPTION
813: when FND_API.G_EXC_ERROR then
814: if p_commit = FND_API.G_TRUE then
815: rollback to Add_Project_Options;
816: end if;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: when FND_API.G_EXC_UNEXPECTED_ERROR then
813: when FND_API.G_EXC_ERROR then
814: if p_commit = FND_API.G_TRUE then
815: rollback to Add_Project_Options;
816: end if;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: when FND_API.G_EXC_UNEXPECTED_ERROR then
819: if p_commit = FND_API.G_TRUE then
820: rollback to Add_Project_Options;
821: end if;
814: if p_commit = FND_API.G_TRUE then
815: rollback to Add_Project_Options;
816: end if;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: when FND_API.G_EXC_UNEXPECTED_ERROR then
819: if p_commit = FND_API.G_TRUE then
820: rollback to Add_Project_Options;
821: end if;
822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: rollback to Add_Project_Options;
816: end if;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: when FND_API.G_EXC_UNEXPECTED_ERROR then
819: if p_commit = FND_API.G_TRUE then
820: rollback to Add_Project_Options;
821: end if;
822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
823: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
818: when FND_API.G_EXC_UNEXPECTED_ERROR then
819: if p_commit = FND_API.G_TRUE then
820: rollback to Add_Project_Options;
821: end if;
822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
823: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
824: p_procedure_name => 'Add_Project_Options',
825: p_error_text => SUBSTRB(SQLERRM,1,240));
826: when OTHERS then
823: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
824: p_procedure_name => 'Add_Project_Options',
825: p_error_text => SUBSTRB(SQLERRM,1,240));
826: when OTHERS then
827: if p_commit = FND_API.G_TRUE then
828: rollback to Add_Project_Options;
829: end if;
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
826: when OTHERS then
827: if p_commit = FND_API.G_TRUE then
828: rollback to Add_Project_Options;
829: end if;
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
832: p_procedure_name => 'Add_Project_Options',
833: p_error_text => SUBSTRB(SQLERRM,1,240));
834: raise;
852: --
853:
854: PROCEDURE Delete_Project_Options(
855: p_api_version IN NUMBER :=1.0,
856: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
857: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
858: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
859: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
860: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
853:
854: PROCEDURE Delete_Project_Options(
855: p_api_version IN NUMBER :=1.0,
856: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
857: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
858: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
859: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
860: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
861: p_debug_mode IN VARCHAR2 :='N',
854: PROCEDURE Delete_Project_Options(
855: p_api_version IN NUMBER :=1.0,
856: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
857: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
858: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
859: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
860: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
861: p_debug_mode IN VARCHAR2 :='N',
862: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
855: p_api_version IN NUMBER :=1.0,
856: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
857: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
858: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
859: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
860: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
861: p_debug_mode IN VARCHAR2 :='N',
862: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
863: p_project_id IN NUMBER,
883: IF (p_debug_mode = 'Y') THEN
884: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Options');
885: END IF;
886:
887: IF (p_commit = FND_API.G_TRUE) THEN
888: savepoint Delete_Project_Options;
889: END IF;
890:
891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
887: IF (p_commit = FND_API.G_TRUE) THEN
888: savepoint Delete_Project_Options;
889: END IF;
890:
891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895:
888: savepoint Delete_Project_Options;
889: END IF;
890:
891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895:
896: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895:
896: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
897: FND_MSG_PUB.initialize;
898: END IF;
899:
900: PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Project_Options(
911: ,x_return_status => l_return_status
912: ,x_msg_count => l_msg_count
913: ,x_msg_data => l_msg_data );
914:
915: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
916: x_msg_count := FND_MSG_PUB.count_msg;
917: IF x_msg_count = 1 then
918: pa_interface_utils_pub.get_messages
919: (p_encoded => FND_API.G_TRUE,
915: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
916: x_msg_count := FND_MSG_PUB.count_msg;
917: IF x_msg_count = 1 then
918: pa_interface_utils_pub.get_messages
919: (p_encoded => FND_API.G_TRUE,
920: p_msg_index => 1,
921: p_msg_count => l_msg_count,
922: p_msg_data => l_msg_data,
923: p_data => l_data,
923: p_data => l_data,
924: p_msg_index_out => l_msg_index_out);
925: x_msg_data := l_data;
926: END IF;
927: raise FND_API.G_EXC_ERROR;
928: END IF;
929:
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
931:
926: END IF;
927: raise FND_API.G_EXC_ERROR;
928: END IF;
929:
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
931:
932: IF (p_commit = FND_API.G_TRUE) THEN
933: COMMIT;
934: END IF;
928: END IF;
929:
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
931:
932: IF (p_commit = FND_API.G_TRUE) THEN
933: COMMIT;
934: END IF;
935:
936: IF (p_debug_mode = 'Y') THEN
936: IF (p_debug_mode = 'Y') THEN
937: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Options END');
938: END IF;
939: EXCEPTION
940: when FND_API.G_EXC_ERROR then
941: if p_commit = FND_API.G_TRUE then
942: rollback to Delete_Project_Options;
943: end if;
944: x_return_status := FND_API.G_RET_STS_ERROR;
937: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Project_Options END');
938: END IF;
939: EXCEPTION
940: when FND_API.G_EXC_ERROR then
941: if p_commit = FND_API.G_TRUE then
942: rollback to Delete_Project_Options;
943: end if;
944: x_return_status := FND_API.G_RET_STS_ERROR;
945: when FND_API.G_EXC_UNEXPECTED_ERROR then
940: when FND_API.G_EXC_ERROR then
941: if p_commit = FND_API.G_TRUE then
942: rollback to Delete_Project_Options;
943: end if;
944: x_return_status := FND_API.G_RET_STS_ERROR;
945: when FND_API.G_EXC_UNEXPECTED_ERROR then
946: if p_commit = FND_API.G_TRUE then
947: rollback to Delete_Project_Options;
948: end if;
941: if p_commit = FND_API.G_TRUE then
942: rollback to Delete_Project_Options;
943: end if;
944: x_return_status := FND_API.G_RET_STS_ERROR;
945: when FND_API.G_EXC_UNEXPECTED_ERROR then
946: if p_commit = FND_API.G_TRUE then
947: rollback to Delete_Project_Options;
948: end if;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
942: rollback to Delete_Project_Options;
943: end if;
944: x_return_status := FND_API.G_RET_STS_ERROR;
945: when FND_API.G_EXC_UNEXPECTED_ERROR then
946: if p_commit = FND_API.G_TRUE then
947: rollback to Delete_Project_Options;
948: end if;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
945: when FND_API.G_EXC_UNEXPECTED_ERROR then
946: if p_commit = FND_API.G_TRUE then
947: rollback to Delete_Project_Options;
948: end if;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
951: p_procedure_name => 'Delete_Project_Options',
952: p_error_text => SUBSTRB(SQLERRM,1,240));
953: when OTHERS then
950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
951: p_procedure_name => 'Delete_Project_Options',
952: p_error_text => SUBSTRB(SQLERRM,1,240));
953: when OTHERS then
954: if p_commit = FND_API.G_TRUE then
955: rollback to Delete_Project_Options;
956: end if;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
958: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
953: when OTHERS then
954: if p_commit = FND_API.G_TRUE then
955: rollback to Delete_Project_Options;
956: end if;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
958: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
959: p_procedure_name => 'Delete_Project_Options',
960: p_error_text => SUBSTRB(SQLERRM,1,240));
961: raise;
978: --
979:
980: PROCEDURE Add_Quick_Entry_Field(
981: p_api_version IN NUMBER :=1.0,
982: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
983: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
984: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
985: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
986: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
979:
980: PROCEDURE Add_Quick_Entry_Field(
981: p_api_version IN NUMBER :=1.0,
982: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
983: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
984: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
985: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
986: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
987: p_debug_mode IN VARCHAR2 :='N',
980: PROCEDURE Add_Quick_Entry_Field(
981: p_api_version IN NUMBER :=1.0,
982: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
983: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
984: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
985: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
986: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
987: p_debug_mode IN VARCHAR2 :='N',
988: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
981: p_api_version IN NUMBER :=1.0,
982: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
983: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
984: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
985: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
986: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
987: p_debug_mode IN VARCHAR2 :='N',
988: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
989: p_project_id IN NUMBER ,
1011: l_organization_id NUMBER;
1012: l_field_name VARCHAR2(80);
1013: l_limiting_value VARCHAR2(80);
1014: BEGIN
1015: x_return_status := FND_API.G_RET_STS_SUCCESS;
1016:
1017: pa_debug.init_err_stack ('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Quick_Entry_Field');
1018:
1019: IF (p_debug_mode = 'Y') THEN
1019: IF (p_debug_mode = 'Y') THEN
1020: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Quick_Entry_Field');
1021: END IF;
1022:
1023: IF (p_commit = FND_API.G_TRUE) THEN
1024: savepoint Add_Quick_Entry_Field;
1025: END IF;
1026:
1027: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1023: IF (p_commit = FND_API.G_TRUE) THEN
1024: savepoint Add_Quick_Entry_Field;
1025: END IF;
1026:
1027: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030:
1031: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1024: savepoint Add_Quick_Entry_Field;
1025: END IF;
1026:
1027: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030:
1031: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1032: FND_MSG_PUB.initialize;
1027: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030:
1031: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1032: FND_MSG_PUB.initialize;
1033: END IF;
1034:
1035: IF p_sort_order IS NULL
1037: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1038: p_msg_name => 'PA_SETUP_ORDER_REQ' );
1039: x_msg_data := 'PA_SETUP_ORDER_REQ';
1040: x_return_status := 'E';
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044: IF ( p_field_name IS NOT NULL AND p_field_name <> 'JUNK_CHARS' )
1045: THEN
1051: ,x_field_name => l_field_name
1052: ,x_return_status => l_return_status
1053: ,x_error_msg_code => l_error_msg_code
1054: );
1055: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1056: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1057: p_msg_name => l_error_msg_code);
1058: END IF;
1059: ELSE
1060: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1061: p_msg_name => 'PA_SETUP_FIELD_NAME_REQ' );
1062: x_msg_data := 'PA_SETUP_FIELD_NAME_REQ';
1063: x_return_status := 'E';
1064: RAISE FND_API.G_EXC_ERROR;
1065: END IF;
1066:
1067: IF p_prompt IS NULL
1068: THEN
1069: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1070: p_msg_name => 'PA_SETUP_PROMPT_REQ' );
1071: x_msg_data := 'PA_SETUP_PROMPT_REQ';
1072: x_return_status := 'E';
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: IF ( p_limiting_value IS NOT NULL AND p_limiting_value <> 'JUNK_CHARS' )
1077: THEN
1084: ,x_limiting_value => l_limiting_value
1085: ,x_return_status => l_return_status
1086: ,x_error_msg_code => l_error_msg_code
1087: );
1088: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1089: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1090: p_msg_name => l_error_msg_code);
1091: END IF;
1092: ELSE
1092: ELSE
1093: l_limiting_value := null;
1094: END IF;
1095:
1096: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1097: x_msg_count := FND_MSG_PUB.count_msg;
1098: IF x_msg_count = 1 then
1099: pa_interface_utils_pub.get_messages
1100: (p_encoded => FND_API.G_TRUE,
1096: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1097: x_msg_count := FND_MSG_PUB.count_msg;
1098: IF x_msg_count = 1 then
1099: pa_interface_utils_pub.get_messages
1100: (p_encoded => FND_API.G_TRUE,
1101: p_msg_index => 1,
1102: p_msg_count => l_msg_count,
1103: p_msg_data => l_msg_data,
1104: p_data => l_data,
1104: p_data => l_data,
1105: p_msg_index_out => l_msg_index_out);
1106: x_msg_data := l_data;
1107: END IF;
1108: raise FND_API.G_EXC_ERROR;
1109: END IF;
1110:
1111: PA_PROJ_TEMPLATE_SETUP_PVT.Add_Quick_Entry_Field(
1112: p_api_version => p_api_version
1126: ,x_return_status => l_return_status
1127: ,x_msg_count => l_msg_count
1128: ,x_msg_data => l_msg_data );
1129:
1130: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1131: x_msg_count := FND_MSG_PUB.count_msg;
1132: IF x_msg_count = 1 then
1133: pa_interface_utils_pub.get_messages
1134: (p_encoded => FND_API.G_TRUE,
1130: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1131: x_msg_count := FND_MSG_PUB.count_msg;
1132: IF x_msg_count = 1 then
1133: pa_interface_utils_pub.get_messages
1134: (p_encoded => FND_API.G_TRUE,
1135: p_msg_index => 1,
1136: p_msg_count => l_msg_count,
1137: p_msg_data => l_msg_data,
1138: p_data => l_data,
1138: p_data => l_data,
1139: p_msg_index_out => l_msg_index_out);
1140: x_msg_data := l_data;
1141: END IF;
1142: raise FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: x_return_status := FND_API.G_RET_STS_SUCCESS;
1146:
1141: END IF;
1142: raise FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: x_return_status := FND_API.G_RET_STS_SUCCESS;
1146:
1147: IF (p_commit = FND_API.G_TRUE) THEN
1148: COMMIT;
1149: END IF;
1143: END IF;
1144:
1145: x_return_status := FND_API.G_RET_STS_SUCCESS;
1146:
1147: IF (p_commit = FND_API.G_TRUE) THEN
1148: COMMIT;
1149: END IF;
1150:
1151: IF (p_debug_mode = 'Y') THEN
1151: IF (p_debug_mode = 'Y') THEN
1152: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Quick_Entry_Field END');
1153: END IF;
1154: EXCEPTION
1155: when FND_API.G_EXC_ERROR then
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Add_Quick_Entry_Field;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1152: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Add_Quick_Entry_Field END');
1153: END IF;
1154: EXCEPTION
1155: when FND_API.G_EXC_ERROR then
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Add_Quick_Entry_Field;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: when FND_API.G_EXC_UNEXPECTED_ERROR then
1155: when FND_API.G_EXC_ERROR then
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Add_Quick_Entry_Field;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: when FND_API.G_EXC_UNEXPECTED_ERROR then
1161: if p_commit = FND_API.G_TRUE then
1162: rollback to Add_Quick_Entry_Field;
1163: end if;
1156: if p_commit = FND_API.G_TRUE then
1157: rollback to Add_Quick_Entry_Field;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: when FND_API.G_EXC_UNEXPECTED_ERROR then
1161: if p_commit = FND_API.G_TRUE then
1162: rollback to Add_Quick_Entry_Field;
1163: end if;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: rollback to Add_Quick_Entry_Field;
1158: end if;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: when FND_API.G_EXC_UNEXPECTED_ERROR then
1161: if p_commit = FND_API.G_TRUE then
1162: rollback to Add_Quick_Entry_Field;
1163: end if;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1160: when FND_API.G_EXC_UNEXPECTED_ERROR then
1161: if p_commit = FND_API.G_TRUE then
1162: rollback to Add_Quick_Entry_Field;
1163: end if;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1166: p_procedure_name => 'Add_Quick_Entry_Field',
1167: p_error_text => SUBSTRB(SQLERRM,1,240));
1168: when OTHERS then
1165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1166: p_procedure_name => 'Add_Quick_Entry_Field',
1167: p_error_text => SUBSTRB(SQLERRM,1,240));
1168: when OTHERS then
1169: if p_commit = FND_API.G_TRUE then
1170: rollback to Add_Quick_Entry_Field;
1171: end if;
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1168: when OTHERS then
1169: if p_commit = FND_API.G_TRUE then
1170: rollback to Add_Quick_Entry_Field;
1171: end if;
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1174: p_procedure_name => 'Add_Quick_Entry_Field',
1175: p_error_text => SUBSTRB(SQLERRM,1,240));
1176: raise;
1193: --
1194:
1195: PROCEDURE Update_Quick_Entry_Field(
1196: p_api_version IN NUMBER :=1.0,
1197: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1198: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1199: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1200: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1201: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1194:
1195: PROCEDURE Update_Quick_Entry_Field(
1196: p_api_version IN NUMBER :=1.0,
1197: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1198: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1199: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1200: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1201: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1202: p_debug_mode IN VARCHAR2 :='N',
1195: PROCEDURE Update_Quick_Entry_Field(
1196: p_api_version IN NUMBER :=1.0,
1197: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1198: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1199: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1200: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1201: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1202: p_debug_mode IN VARCHAR2 :='N',
1203: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1196: p_api_version IN NUMBER :=1.0,
1197: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1198: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1199: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1200: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1201: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1202: p_debug_mode IN VARCHAR2 :='N',
1203: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1204: p_project_id IN NUMBER ,
1237: SELECT field_name
1238: FROM pa_project_copy_overrides
1239: WHERE rowid = p_row_id;
1240: BEGIN
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: pa_debug.init_err_stack ('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Quick_Entry_Field');
1244:
1245: IF (p_debug_mode = 'Y') THEN
1245: IF (p_debug_mode = 'Y') THEN
1246: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Quick_Entry_Field');
1247: END IF;
1248:
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: savepoint Update_Quick_Entry_Field;
1251: END IF;
1252:
1253: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: savepoint Update_Quick_Entry_Field;
1251: END IF;
1252:
1253: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256:
1257:
1250: savepoint Update_Quick_Entry_Field;
1251: END IF;
1252:
1253: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256:
1257:
1258: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256:
1257:
1258: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262: IF p_sort_order IS NULL
1264: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1265: p_msg_name => 'PA_SETUP_ORDER_REQ' );
1266: x_msg_data := 'PA_SETUP_ORDER_REQ';
1267: x_return_status := 'E';
1268: RAISE FND_API.G_EXC_ERROR;
1269: END IF;
1270:
1271: IF ( p_field_name IS NOT NULL AND p_field_name <> 'JUNK_CHARS' )
1272: THEN
1278: ,x_field_name => l_field_name
1279: ,x_return_status => l_return_status
1280: ,x_error_msg_code => l_error_msg_code
1281: );
1282: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1283: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1284: p_msg_name => l_error_msg_code);
1285: END IF;
1286: ELSE
1287: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1288: p_msg_name => 'PA_SETUP_FIELD_NAME_REQ' );
1289: x_msg_data := 'PA_SETUP_FIELD_NAME_REQ';
1290: x_return_status := 'E';
1291: RAISE FND_API.G_EXC_ERROR;
1292: END IF;
1293:
1294: OPEN cur_pa_overrides;
1295: FETCH cur_pa_overrides INTO l_field_name2;
1301: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1302: p_msg_name => 'PA_SETUP_CANT_MODFY_OVER' );
1303: x_msg_data := 'PA_SETUP_CANT_MODFY_OVER';
1304: x_return_status := 'E';
1305: RAISE FND_API.G_EXC_ERROR;
1306: END IF;
1307:
1308: IF p_prompt IS NULL
1309: THEN
1310: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1311: p_msg_name => 'PA_SETUP_PROMPT_REQ' );
1312: x_msg_data := 'PA_SETUP_PROMPT_REQ';
1313: x_return_status := 'E';
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: IF ( p_limiting_value IS NOT NULL AND p_limiting_value <> 'JUNK_CHARS' )
1318: THEN
1325: ,x_limiting_value => l_limiting_value
1326: ,x_return_status => l_return_status
1327: ,x_error_msg_code => l_error_msg_code
1328: );
1329: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1330: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1331: p_msg_name => l_error_msg_code);
1332: END IF;
1333: ELSE
1333: ELSE
1334: l_limiting_value := null;
1335: END IF;
1336:
1337: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1338: x_msg_count := FND_MSG_PUB.count_msg;
1339: IF x_msg_count = 1 then
1340: pa_interface_utils_pub.get_messages
1341: (p_encoded => FND_API.G_TRUE,
1337: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1338: x_msg_count := FND_MSG_PUB.count_msg;
1339: IF x_msg_count = 1 then
1340: pa_interface_utils_pub.get_messages
1341: (p_encoded => FND_API.G_TRUE,
1342: p_msg_index => 1,
1343: p_msg_count => l_msg_count,
1344: p_msg_data => l_msg_data,
1345: p_data => l_data,
1345: p_data => l_data,
1346: p_msg_index_out => l_msg_index_out);
1347: x_msg_data := l_data;
1348: END IF;
1349: raise FND_API.G_EXC_ERROR;
1350: END IF;
1351:
1352: IF p_validate_only <> FND_API.G_TRUE
1353: THEN
1348: END IF;
1349: raise FND_API.G_EXC_ERROR;
1350: END IF;
1351:
1352: IF p_validate_only <> FND_API.G_TRUE
1353: THEN
1354: BEGIN
1355: SELECT 'x' INTO l_dummy_char
1356: FROM pa_project_copy_overrides
1417:
1418: IF l_msg_count > 0 THEN
1419: x_msg_count := l_msg_count;
1420: x_return_status := 'E';
1421: RAISE FND_API.G_EXC_ERROR;
1422: END IF;
1423:
1424: PA_PROJ_TEMPLATE_SETUP_PVT.Update_Quick_Entry_Field(
1425: p_api_version => p_api_version
1441: ,x_return_status => l_return_status
1442: ,x_msg_count => l_msg_count
1443: ,x_msg_data => l_msg_data );
1444:
1445: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1446: x_msg_count := FND_MSG_PUB.count_msg;
1447: IF x_msg_count = 1 then
1448: pa_interface_utils_pub.get_messages
1449: (p_encoded => FND_API.G_TRUE,
1445: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1446: x_msg_count := FND_MSG_PUB.count_msg;
1447: IF x_msg_count = 1 then
1448: pa_interface_utils_pub.get_messages
1449: (p_encoded => FND_API.G_TRUE,
1450: p_msg_index => 1,
1451: p_msg_count => l_msg_count,
1452: p_msg_data => l_msg_data,
1453: p_data => l_data,
1453: p_data => l_data,
1454: p_msg_index_out => l_msg_index_out);
1455: x_msg_data := l_data;
1456: END IF;
1457: raise FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1456: END IF;
1457: raise FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462: IF (p_commit = FND_API.G_TRUE) THEN
1463: COMMIT;
1464: END IF;
1458: END IF;
1459:
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462: IF (p_commit = FND_API.G_TRUE) THEN
1463: COMMIT;
1464: END IF;
1465:
1466: IF (p_debug_mode = 'Y') THEN
1466: IF (p_debug_mode = 'Y') THEN
1467: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Quick_Entry_Field END');
1468: END IF;
1469: EXCEPTION
1470: when FND_API.G_EXC_ERROR then
1471: if p_commit = FND_API.G_TRUE then
1472: rollback to Update_Quick_Entry_Field;
1473: end if;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1467: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Update_Quick_Entry_Field END');
1468: END IF;
1469: EXCEPTION
1470: when FND_API.G_EXC_ERROR then
1471: if p_commit = FND_API.G_TRUE then
1472: rollback to Update_Quick_Entry_Field;
1473: end if;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: when FND_API.G_EXC_UNEXPECTED_ERROR then
1470: when FND_API.G_EXC_ERROR then
1471: if p_commit = FND_API.G_TRUE then
1472: rollback to Update_Quick_Entry_Field;
1473: end if;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: when FND_API.G_EXC_UNEXPECTED_ERROR then
1476: if p_commit = FND_API.G_TRUE then
1477: rollback to Update_Quick_Entry_Field;
1478: end if;
1471: if p_commit = FND_API.G_TRUE then
1472: rollback to Update_Quick_Entry_Field;
1473: end if;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: when FND_API.G_EXC_UNEXPECTED_ERROR then
1476: if p_commit = FND_API.G_TRUE then
1477: rollback to Update_Quick_Entry_Field;
1478: end if;
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: rollback to Update_Quick_Entry_Field;
1473: end if;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: when FND_API.G_EXC_UNEXPECTED_ERROR then
1476: if p_commit = FND_API.G_TRUE then
1477: rollback to Update_Quick_Entry_Field;
1478: end if;
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1480: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1475: when FND_API.G_EXC_UNEXPECTED_ERROR then
1476: if p_commit = FND_API.G_TRUE then
1477: rollback to Update_Quick_Entry_Field;
1478: end if;
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1480: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1481: p_procedure_name => 'Update_Quick_Entry_Field',
1482: p_error_text => SUBSTRB(SQLERRM,1,240));
1483: when OTHERS then
1480: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1481: p_procedure_name => 'Update_Quick_Entry_Field',
1482: p_error_text => SUBSTRB(SQLERRM,1,240));
1483: when OTHERS then
1484: if p_commit = FND_API.G_TRUE then
1485: rollback to Update_Quick_Entry_Field;
1486: end if;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1483: when OTHERS then
1484: if p_commit = FND_API.G_TRUE then
1485: rollback to Update_Quick_Entry_Field;
1486: end if;
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1488: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1489: p_procedure_name => 'Update_Quick_Entry_Field',
1490: p_error_text => SUBSTRB(SQLERRM,1,240));
1491: raise;
1498: -- Return Value :
1499: --
1500: -- Parameters
1501: --p_project_id IN NUMBER No Not Null
1502: --p_field_name IN VARCHAR2 No FND_API.G_MISS_CHAR
1503: --p_record_version_number IN NUMBER No not null
1504: --
1505: -- History
1506: --
1509: --
1510:
1511: PROCEDURE Delete_Quick_Entry_Field(
1512: p_api_version IN NUMBER :=1.0,
1513: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1514: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1515: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1517: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1510:
1511: PROCEDURE Delete_Quick_Entry_Field(
1512: p_api_version IN NUMBER :=1.0,
1513: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1514: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1515: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1517: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1518: p_debug_mode IN VARCHAR2 :='N',
1511: PROCEDURE Delete_Quick_Entry_Field(
1512: p_api_version IN NUMBER :=1.0,
1513: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1514: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1515: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1517: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1518: p_debug_mode IN VARCHAR2 :='N',
1519: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1512: p_api_version IN NUMBER :=1.0,
1513: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1514: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1515: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1517: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1518: p_debug_mode IN VARCHAR2 :='N',
1519: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1520: p_project_id IN NUMBER,
1542: IF (p_debug_mode = 'Y') THEN
1543: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Quick_Entry_Field');
1544: END IF;
1545:
1546: IF (p_commit = FND_API.G_TRUE) THEN
1547: savepoint Delete_Quick_Entry_Field;
1548: END IF;
1549:
1550: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1546: IF (p_commit = FND_API.G_TRUE) THEN
1547: savepoint Delete_Quick_Entry_Field;
1548: END IF;
1549:
1550: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: END IF;
1553:
1554:
1547: savepoint Delete_Quick_Entry_Field;
1548: END IF;
1549:
1550: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: END IF;
1553:
1554:
1555: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: END IF;
1553:
1554:
1555: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1556: FND_MSG_PUB.initialize;
1557: END IF;
1558:
1559: IF p_validate_only <> FND_API.G_TRUE
1555: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1556: FND_MSG_PUB.initialize;
1557: END IF;
1558:
1559: IF p_validate_only <> FND_API.G_TRUE
1560: THEN
1561: BEGIN
1562: SELECT 'x' INTO l_dummy_char
1563: FROM pa_project_copy_overrides
1624:
1625: IF l_msg_count > 0 THEN
1626: x_msg_count := l_msg_count;
1627: x_return_status := 'E';
1628: RAISE FND_API.G_EXC_ERROR;
1629: END IF;
1630:
1631: PA_PROJ_TEMPLATE_SETUP_PVT.Delete_Quick_Entry_Field(
1632: p_api_version => p_api_version
1643: ,x_return_status => l_return_status
1644: ,x_msg_count => l_msg_count
1645: ,x_msg_data => l_msg_data );
1646:
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: x_return_status := FND_API.G_RET_STS_SUCCESS;
1663:
1658: END IF;
1659: raise FND_API.G_EXC_ERROR;
1660: END IF;
1661:
1662: x_return_status := FND_API.G_RET_STS_SUCCESS;
1663:
1664: IF (p_commit = FND_API.G_TRUE) THEN
1665: COMMIT;
1666: END IF;
1660: END IF;
1661:
1662: x_return_status := FND_API.G_RET_STS_SUCCESS;
1663:
1664: IF (p_commit = FND_API.G_TRUE) THEN
1665: COMMIT;
1666: END IF;
1667:
1668: IF (p_debug_mode = 'Y') THEN
1668: IF (p_debug_mode = 'Y') THEN
1669: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Quick_Entry_Field END');
1670: END IF;
1671: EXCEPTION
1672: when FND_API.G_EXC_ERROR then
1673: if p_commit = FND_API.G_TRUE then
1674: rollback to Delete_Quick_Entry_Field;
1675: end if;
1676: x_return_status := FND_API.G_RET_STS_ERROR;
1669: pa_debug.debug('PA_PROJ_TEMPLATE_SETUP_PUB.Delete_Quick_Entry_Field END');
1670: END IF;
1671: EXCEPTION
1672: when FND_API.G_EXC_ERROR then
1673: if p_commit = FND_API.G_TRUE then
1674: rollback to Delete_Quick_Entry_Field;
1675: end if;
1676: x_return_status := FND_API.G_RET_STS_ERROR;
1677: when FND_API.G_EXC_UNEXPECTED_ERROR then
1672: when FND_API.G_EXC_ERROR then
1673: if p_commit = FND_API.G_TRUE then
1674: rollback to Delete_Quick_Entry_Field;
1675: end if;
1676: x_return_status := FND_API.G_RET_STS_ERROR;
1677: when FND_API.G_EXC_UNEXPECTED_ERROR then
1678: if p_commit = FND_API.G_TRUE then
1679: rollback to Delete_Quick_Entry_Field;
1680: end if;
1673: if p_commit = FND_API.G_TRUE then
1674: rollback to Delete_Quick_Entry_Field;
1675: end if;
1676: x_return_status := FND_API.G_RET_STS_ERROR;
1677: when FND_API.G_EXC_UNEXPECTED_ERROR then
1678: if p_commit = FND_API.G_TRUE then
1679: rollback to Delete_Quick_Entry_Field;
1680: end if;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1674: rollback to Delete_Quick_Entry_Field;
1675: end if;
1676: x_return_status := FND_API.G_RET_STS_ERROR;
1677: when FND_API.G_EXC_UNEXPECTED_ERROR then
1678: if p_commit = FND_API.G_TRUE then
1679: rollback to Delete_Quick_Entry_Field;
1680: end if;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1677: when FND_API.G_EXC_UNEXPECTED_ERROR then
1678: if p_commit = FND_API.G_TRUE then
1679: rollback to Delete_Quick_Entry_Field;
1680: end if;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1683: p_procedure_name => 'Delete_Quick_Entry_Field',
1684: p_error_text => SUBSTRB(SQLERRM,1,240));
1685: when OTHERS then
1682: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1683: p_procedure_name => 'Delete_Quick_Entry_Field',
1684: p_error_text => SUBSTRB(SQLERRM,1,240));
1685: when OTHERS then
1686: if p_commit = FND_API.G_TRUE then
1687: rollback to Delete_Quick_Entry_Field;
1688: end if;
1689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1690: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1685: when OTHERS then
1686: if p_commit = FND_API.G_TRUE then
1687: rollback to Delete_Quick_Entry_Field;
1688: end if;
1689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1690: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_PUB',
1691: p_procedure_name => 'Delete_Quick_Entry_Field',
1692: p_error_text => SUBSTRB(SQLERRM,1,240));
1693: raise;