38: IS
39:
40: l_return_status VARCHAR2(1);
41: l_msg_index_out NUMBER;
42: l_enable_log varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
43:
44: BEGIN
45:
46: -- Initialize the Error Stack
44: BEGIN
45:
46: -- Initialize the Error Stack
47: IF l_enable_log = 'Y' THEN
48: PA_DEBUG.init_err_stack('PA_PROJECT_SETS_PUB.Create_Project_Set');
49: END IF;
50:
51: -- Initialize the return status to success
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: END IF;
63:
64: --Log Message
65: IF l_enable_log = 'Y' THEN
66: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Create_Project_Set.begin'
67: ,x_msg => 'Beginning of Create_Project_Set pub'
68: ,x_log_level => 5);
69:
70: --Log Message
67: ,x_msg => 'Beginning of Create_Project_Set pub'
68: ,x_log_level => 5);
69:
70: --Log Message
71: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Create_Project_Set.begin'
72: ,x_msg => 'calling create_Project_Set pvt'
73: ,x_log_level => 5);
74: END IF;
75:
111: END IF;
112:
113: -- Reset the error stack when returning to the calling program
114: IF l_enable_log = 'Y' THEN
115: PA_DEBUG.Reset_Err_Stack;
116: END IF;
117: -- If any errors exist then set the x_return_status to 'E'
118:
119: IF x_msg_count > 0 THEN
137: x_msg_data := SUBSTRB(SQLERRM,1,120);
138:
139: -- Set the exception Message and the stack
140: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SETS_PUB.Create_Project_Set'
141: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
142: --
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
144: --RAISE;
145:
183: IS
184:
185: l_return_status VARCHAR2(1);
186: l_msg_index_out NUMBER;
187: l_enable_log varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
188:
189: BEGIN
190:
191: -- Initialize the Error Stack
189: BEGIN
190:
191: -- Initialize the Error Stack
192: IF l_enable_log = 'Y' THEN
193: PA_DEBUG.init_err_stack('PA_PROJECT_SETS_PUB.Update_Project_Set');
194: END IF;
195:
196: -- Initialize the return status to success
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
207: END IF;
208:
209: --Log Message
210: IF l_enable_log = 'Y' THEN
211: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Update_Project_Set.begin'
212: ,x_msg => 'Beginning of Update_Project_Set pub'
213: ,x_log_level => 5);
214:
215: --Log Message
212: ,x_msg => 'Beginning of Update_Project_Set pub'
213: ,x_log_level => 5);
214:
215: --Log Message
216: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Update_Project_Set.begin'
217: ,x_msg => 'calling Update_Project_Set pvt'
218: ,x_log_level => 5);
219: END IF;
220:
257: END IF;
258:
259: -- Reset the error stack when returning to the calling program
260: IF l_enable_log = 'Y' THEN
261: PA_DEBUG.Reset_Err_Stack;
262: END IF;
263: -- If any errors exist then set the x_return_status to 'E'
264:
265: IF x_msg_count > 0 THEN
282: x_msg_data := SUBSTRB(SQLERRM,1,120);
283:
284: -- Set the excetption Message and the stack
285: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SETS_PUB.Update_Project_Set'
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
287: --
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
289: --RAISE;
290:
305: IS
306:
307: l_return_status VARCHAR2(1);
308: l_msg_index_out NUMBER;
309: l_enable_log varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
310:
311: BEGIN
312:
313: -- Initialize the Error Stack
311: BEGIN
312:
313: -- Initialize the Error Stack
314: IF l_enable_log = 'Y' THEN
315: PA_DEBUG.init_err_stack('PA_PROJECT_SETS_PUB.Delete_Project_Set');
316: END IF;
317:
318: -- Initialize the return status to success
319: x_return_status := FND_API.G_RET_STS_SUCCESS;
329: END IF;
330:
331: --Log Message
332: IF l_enable_log = 'Y' THEN
333: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Delete_Project_Set.begin'
334: ,x_msg => 'Beginning of Delete_Project_Set pub'
335: ,x_log_level => 5);
336:
337: --Log Message
334: ,x_msg => 'Beginning of Delete_Project_Set pub'
335: ,x_log_level => 5);
336:
337: --Log Message
338: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Delete_Project_Set.begin'
339: ,x_msg => 'calling Delete_Project_Set pvt'
340: ,x_log_level => 5);
341: END IF;
342:
355: END IF;
356:
357: -- Reset the error stack when returning to the calling program
358: IF l_enable_log = 'Y' THEN
359: PA_DEBUG.Reset_Err_Stack;
360: END IF;
361: -- If any errors exist then set the x_return_status to 'E'
362:
363: IF x_msg_count > 0 THEN
380: x_msg_data := SUBSTRB(SQLERRM,1,120);
381:
382: -- Set the excetption Message and the stack
383: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SETS_PUB.Delete_Project_Set'
384: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
385: --
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
387: RAISE;
388:
403: IS
404:
405: l_return_status VARCHAR2(1);
406: l_msg_index_out NUMBER;
407: l_enable_log varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
408:
409: BEGIN
410:
411: -- Initialize the Error Stack
409: BEGIN
410:
411: -- Initialize the Error Stack
412: IF l_enable_log = 'Y' THEN
413: PA_DEBUG.init_err_stack('PA_PROJECT_SETS_PUB.Create_Project_Set_Line');
414: END IF;
415:
416: -- Initialize the return status to success
417: x_return_status := FND_API.G_RET_STS_SUCCESS;
427: END IF;
428:
429: --Log Message
430: IF l_enable_log = 'Y' THEN
431: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Create_Project_Set_Line.begin'
432: ,x_msg => 'Beginning of Create_Project_Set_Line pub'
433: ,x_log_level => 5);
434:
435: --Log Message
432: ,x_msg => 'Beginning of Create_Project_Set_Line pub'
433: ,x_log_level => 5);
434:
435: --Log Message
436: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Create_Project_Set_Line.begin'
437: ,x_msg => 'calling create_Project_Set_Line pvt'
438: ,x_log_level => 5);
439: END IF;
440:
454: END IF;
455:
456: -- Reset the error stack when returning to the calling program
457: IF l_enable_log = 'Y' THEN
458: PA_DEBUG.Reset_Err_Stack;
459: END IF;
460: -- If any errors exist then set the x_return_status to 'E'
461:
462: IF x_msg_count > 0 THEN
479: x_msg_data := SUBSTRB(SQLERRM,1,120);
480:
481: -- Set the excetption Message and the stack
482: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SETS_PUB.Create_Project_Set_Line'
483: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
484: --
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: --RAISE;
487:
504:
505: l_return_status VARCHAR2(1);
506: l_msg_index_out NUMBER;
507: l_project_set_id NUMBER;
508: l_enable_log varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
509:
510: BEGIN
511:
512: -- Initialize the Error Stack
510: BEGIN
511:
512: -- Initialize the Error Stack
513: IF l_enable_log = 'Y' THEN
514: PA_DEBUG.init_err_stack('PA_PROJECT_SETS_PUB.Delete_Project_Set_Line');
515: END IF;
516:
517: -- Initialize the return status to success
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
528: END IF;
529:
530: --Log Message
531: IF l_enable_log = 'Y' THEN
532: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Delete_Project_Set_Line.begin'
533: ,x_msg => 'Beginning of Delete_Project_Set_Line pub'
534: ,x_log_level => 5);
535:
536: --Log Message
533: ,x_msg => 'Beginning of Delete_Project_Set_Line pub'
534: ,x_log_level => 5);
535:
536: --Log Message
537: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_PROJECT_SETS_PUB.Delete_Project_Set_Line.begin'
538: ,x_msg => 'calling Delete_Project_Set_Line pvt'
539: ,x_log_level => 5);
540: END IF;
541:
554: END IF;
555:
556: -- Reset the error stack when returning to the calling program
557: IF l_enable_log = 'Y' THEN
558: PA_DEBUG.Reset_Err_Stack;
559: END IF;
560: -- If any errors exist then set the x_return_status to 'E'
561:
562: IF x_msg_count > 0 THEN
579: x_msg_data := SUBSTRB(SQLERRM,1,120);
580:
581: -- Set the excetption Message and the stack
582: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SETS_PUB.Delete_Project_Set_Line'
583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
584: --
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: --RAISE;
587: