45:
46: BEGIN
47:
48: -- Initialize the Error Stack
49: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Create_Action_Set');
50:
51: -- Bug 4403338
52: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
53:
48: -- Initialize the Error Stack
49: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Create_Action_Set');
50:
51: -- Bug 4403338
52: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
53:
54: -- Initialize the return status to success
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
65: END IF;
66:
67: --Log Message: 4403338
68: IF l_debug_mode = 'Y' THEN
69: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set.begin'
70: ,x_msg => 'Beginning of Create_Action_Set pub'
71: ,x_log_level => 5);
72:
73: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set.begin'
69: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set.begin'
70: ,x_msg => 'Beginning of Create_Action_Set pub'
71: ,x_log_level => 5);
72:
73: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set.begin'
74: ,x_msg => 'calling create_Action_Set pvt'
75: ,x_log_level => 5);
76: END IF;
77:
115: );
116: END IF;
117:
118: -- Reset the error stack when returning to the calling program
119: PA_DEBUG.Reset_Err_Stack;
120: -- If any errors exist then set the x_return_status to 'E'
121:
122: IF x_msg_count > 0 THEN
123: x_return_status := FND_API.G_RET_STS_ERROR;
135: END IF;
136:
137: -- Set the excetption Message and the stack
138: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Create_Action_Set'
139: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
140: --
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
142: RAISE;
143:
190:
191: BEGIN
192:
193: -- Initialize the Error Stack
194: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Update_Action_Set');
195:
196: -- Bug 4403338
197: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
198:
193: -- Initialize the Error Stack
194: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Update_Action_Set');
195:
196: -- Bug 4403338
197: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
198:
199: -- Initialize the return status to success
200: x_return_status := FND_API.G_RET_STS_SUCCESS;
201:
210: END IF;
211:
212: --Log Message: 4403338
213: IF l_debug_mode = 'Y' THEN
214: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set.begin'
215: ,x_msg => 'Beginning of Update_Action_Set pub'
216: ,x_log_level => 5);
217: END IF;
218:
240: END;
241:
242: --Log Message: 4403338
243: IF l_debug_mode = 'Y' THEN
244: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set.begin'
245: ,x_msg => 'calling Update_Action_Set pvt'
246: ,x_log_level => 5);
247: END IF;
248:
283: );
284: END IF;
285:
286: -- Reset the error stack when returning to the calling program
287: PA_DEBUG.Reset_Err_Stack;
288: -- If any errors exist then set the x_return_status to 'E'
289:
290: IF x_msg_count > 0 THEN
291: x_return_status := FND_API.G_RET_STS_ERROR;
303: END IF;
304:
305: -- Set the excetption Message and the stack
306: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Update_Action_Set'
307: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
308: --
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
310: RAISE;
311:
341: -- End 5130421
342: BEGIN
343:
344: -- Initialize the Error Stack
345: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Delete_Action_Set');
346:
347: -- Bug 4403338
348: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
349:
344: -- Initialize the Error Stack
345: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Delete_Action_Set');
346:
347: -- Bug 4403338
348: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
349:
350: -- Initialize the return status to success
351: x_return_status := FND_API.G_RET_STS_SUCCESS;
352:
364: END IF;
365:
366: --Log Message: 4403338
367: IF l_debug_mode = 'Y' THEN
368: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Delete_Action_Set.begin'
369: ,x_msg => 'Beginning of Delete_Action_Set pub'
370: ,x_log_level => 5);
371: END IF;
372:
394: END;
395:
396: --Log Message: 4403338
397: IF l_debug_mode = 'Y' THEN
398: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Delete_Action_Set.begin'
399: ,x_msg => 'calling Delete_Action_Set pvt'
400: ,x_log_level => 5);
401: END IF;
402:
421: );
422: END IF;
423:
424: -- Reset the error stack when returning to the calling program
425: PA_DEBUG.Reset_Err_Stack;
426: -- If any errors exist then set the x_return_status to 'E'
427:
428: -- 5130421 IF x_msg_count > 0 THEN
429: IF l_current_api_msg_count > 0 THEN
442: END IF;
443:
444: -- Set the excetption Message and the stack
445: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Delete_Action_Set'
446: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
447: --
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
449: RAISE;
450:
487:
488: BEGIN
489:
490: -- Initialize the Error Stack
491: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Create_Action_Set_Line');
492:
493: -- Bug 4403338
494: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
495:
490: -- Initialize the Error Stack
491: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Create_Action_Set_Line');
492:
493: -- Bug 4403338
494: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
495:
496: -- Initialize the return status to success
497: x_return_status := FND_API.G_RET_STS_SUCCESS;
498:
507: END IF;
508:
509: --Log Message: 4403338
510: IF l_debug_mode = 'Y' THEN
511: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set_Line.begin'
512: ,x_msg => 'Beginning of Create_Action_Set_Line pub'
513: ,x_log_level => 5);
514:
515: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_SetLine.begin'
511: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_Set_Line.begin'
512: ,x_msg => 'Beginning of Create_Action_Set_Line pub'
513: ,x_log_level => 5);
514:
515: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Create_Action_SetLine.begin'
516: ,x_msg => 'calling create_Action_Set_Line pvt'
517: ,x_log_level => 5);
518: END IF;
519:
546: );
547: END IF;
548:
549: -- Reset the error stack when returning to the calling program
550: PA_DEBUG.Reset_Err_Stack;
551: -- If any errors exist then set the x_return_status to 'E'
552:
553: IF x_msg_count > 0 THEN
554: x_return_status := FND_API.G_RET_STS_ERROR;
566: END IF;
567:
568: -- Set the excetption Message and the stack
569: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Create_Action_Set_Line'
570: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
571: --
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
573: RAISE;
574:
611:
612: BEGIN
613:
614: -- Initialize the Error Stack
615: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Update_Action_Set_Line');
616:
617: -- Bug 4403338
618: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
619:
614: -- Initialize the Error Stack
615: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Update_Action_Set_Line');
616:
617: -- Bug 4403338
618: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
619:
620: -- Initialize the return status to success
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
631: END IF;
632:
633: --Log Message: 4403338
634: IF l_debug_mode = 'Y' THEN
635: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set_Line.begin'
636: ,x_msg => 'Beginning of Update_Action_Set_Line pub'
637: ,x_log_level => 5);
638:
639: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set_Line.begin'
635: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set_Line.begin'
636: ,x_msg => 'Beginning of Update_Action_Set_Line pub'
637: ,x_log_level => 5);
638:
639: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Update_Action_Set_Line.begin'
640: ,x_msg => 'calling Update_Action_Set_Line pvt'
641: ,x_log_level => 5);
642: END IF;
643:
669: );
670: END IF;
671:
672: -- Reset the error stack when returning to the calling program
673: PA_DEBUG.Reset_Err_Stack;
674: -- If any errors exist then set the x_return_status to 'E'
675:
676: IF x_msg_count > 0 THEN
677: x_return_status := FND_API.G_RET_STS_ERROR;
689: END IF;
690:
691: -- Set the excetption Message and the stack
692: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Update_Action_Set_Line'
693: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
694: --
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
696: RAISE;
697:
720:
721: BEGIN
722:
723: -- Initialize the Error Stack
724: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Delete_Action_Set_Line');
725:
726: -- Bug 4403338
727: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
728:
723: -- Initialize the Error Stack
724: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Delete_Action_Set_Line');
725:
726: -- Bug 4403338
727: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
728:
729: -- Initialize the return status to success
730: x_return_status := FND_API.G_RET_STS_SUCCESS;
731:
740: END IF;
741:
742: --Log Message: 4403338
743: IF l_debug_mode = 'Y' THEN
744: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Delete_Action_Set_Line.begin'
745: ,x_msg => 'Beginning of Delete_Action_Set_Line pub'
746: ,x_log_level => 5);
747: END IF;
748:
774: );
775: END IF;
776:
777: -- Reset the error stack when returning to the calling program
778: PA_DEBUG.Reset_Err_Stack;
779: -- If any errors exist then set the x_return_status to 'E'
780:
781: IF x_msg_count > 0 THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
794: END IF;
795:
796: -- Set the excetption Message and the stack
797: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Delete_Action_Set_Line'
798: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
799: --
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
801: RAISE;
802:
851:
852: BEGIN
853:
854: -- Initialize the Error Stack
855: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Apply_Action_Set');
856:
857: -- Bug 4403338
858: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
859:
854: -- Initialize the Error Stack
855: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Apply_Action_Set');
856:
857: -- Bug 4403338
858: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
859:
860: -- Initialize the return status to success
861: x_return_status := FND_API.G_RET_STS_SUCCESS;
862:
871: END IF;
872:
873: --Log Message: 4403338
874: IF l_debug_mode = 'Y' THEN
875: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Apply_Action_Set.begin'
876: ,x_msg => 'Beginning of Apply_Action_Set pub'
877: ,x_log_level => 5);
878:
879: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Apply_Action_Set'
875: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Apply_Action_Set.begin'
876: ,x_msg => 'Beginning of Apply_Action_Set pub'
877: ,x_log_level => 5);
878:
879: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Apply_Action_Set'
880: ,x_msg => 'FND_MSG_PUB.Count_Msg = '||FND_MSG_PUB.Count_Msg
881: ,x_log_level => 5);
882: END IF;
883:
1006: END IF;
1007:
1008: --Log Message: 4403338
1009: IF l_debug_mode = 'Y' THEN
1010: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Apply_Action_Set.begin'
1011: ,x_msg => 'calling Perform_Action_Set_Line pub'
1012: ,x_log_level => 5);
1013: END IF;
1014:
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: END IF;
1027:
1028: -- Reset the error stack when returning to the calling program
1029: PA_DEBUG.Reset_Err_Stack;
1030: -- If any errors exist then set the x_return_status to 'E'
1031:
1032: -- Commit if the flag is set and there is no error
1033: IF p_commit = FND_API.G_TRUE AND x_msg_count = 0 THEN
1041: END IF;
1042:
1043: -- Set the excetption Message and the stack
1044: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Apply_Action_Set'
1045: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1046: --
1047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1048: RAISE;
1049:
1079:
1080: BEGIN
1081:
1082: -- Initialize the Error Stack
1083: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Replace_Action_Set');
1084:
1085: -- Bug 4370082
1086: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1087:
1082: -- Initialize the Error Stack
1083: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Replace_Action_Set');
1084:
1085: -- Bug 4370082
1086: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1087:
1088: -- Initialize the return status to success
1089: x_return_status := FND_API.G_RET_STS_SUCCESS;
1090:
1099: END IF;
1100:
1101: --Log Message: 4370082
1102: IF l_debug_mode = 'Y' THEN
1103: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Replace_Action_Set.begin'
1104: ,x_msg => 'Beginning of Replace_Action_Set pub'
1105: ,x_log_level => 5);
1106: END IF;
1107:
1126: IF FND_MSG_PUB.Count_Msg = 0 THEN
1127:
1128: --Log Message: 4370082
1129: IF l_debug_mode = 'Y' THEN
1130: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Replace_Action_Set.begin'
1131: ,x_msg => 'calling Apply_Action_Set pub'
1132: ,x_log_level => 5);
1133: END IF;
1134:
1153: );
1154: END IF;
1155:
1156: -- Reset the error stack when returning to the calling program
1157: PA_DEBUG.Reset_Err_Stack;
1158: -- If any errors exist then set the x_return_status to 'E'
1159:
1160: IF x_msg_count > 0 THEN
1161: x_return_status := FND_API.G_RET_STS_ERROR;
1181: END IF;
1182:
1183: -- Set the excetption Message and the stack
1184: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Replace_Action_Set'
1185: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1186: --
1187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1188: RAISE;
1189:
1231:
1232: BEGIN
1233:
1234: -- Initialize the Error Stack
1235: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Perform_Single_Action_Set');
1236:
1237: -- Bug 4370082
1238: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1239:
1234: -- Initialize the Error Stack
1235: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.Perform_Single_Action_Set');
1236:
1237: -- Bug 4370082
1238: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1239:
1240: -- Initialize the return status to success
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1251: END IF;
1252:
1253: --Log Message: 4370082
1254: IF l_debug_mode = 'Y' THEN
1255: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PUB.Perform_Single_Action_Set.begin'
1256: ,x_msg => 'Beginning of Perform_Single_Action_Set pub'
1257: ,x_log_level => 5);
1258: END IF;
1259:
1282: CLOSE get_action_set_lines;
1283:
1284: --Log Message: 4370082
1285: IF l_debug_mode = 'Y' THEN
1286: PA_DEBUG.write_log (x_module => 'pa.plsql.PA_ACTION_SETS_PVT.Perform_Action_Set_Line'
1287: ,x_msg => 'calling Perform_ActionSet_Line pvt'
1288: ,x_log_level => 5);
1289: END IF;
1290:
1315: );
1316: END IF;
1317:
1318: -- Reset the error stack when returning to the calling program
1319: PA_DEBUG.Reset_Err_Stack;
1320: -- If any errors exist then set the x_return_status to 'E'
1321:
1322: IF x_msg_count > 0 OR PA_ACTION_SET_UTILS.G_ERROR_EXISTS = 'Y' THEN
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1335: END IF;
1336:
1337: -- Set the excetption Message and the stack
1338: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Perform_Single_Action_Set'
1339: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1340: --
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1342: RAISE;
1343:
1456:
1457: WHEN OTHERS THEN
1458: -- Set the excetption Message and the stack
1459: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PVT.Perform_Action_Set_Line'
1460: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1461: --
1462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1463: RAISE;
1464:
1511:
1512: BEGIN
1513:
1514: -- Initialize the Error Stack
1515: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.create_line_single_cond');
1516:
1517: -- Initialize the return status to success
1518: x_return_status := FND_API.G_RET_STS_SUCCESS;
1519:
1575: WHEN OTHERS THEN
1576:
1577: -- Set the excetption Message and the stack
1578: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.create_line_single_cond'
1579: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1580: --
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: RAISE;
1583:
1627:
1628: BEGIN
1629:
1630: -- Initialize the Error Stack
1631: PA_DEBUG.init_err_stack('PA_ACTION_SETS_PUB.update_line_single_cond');
1632:
1633: -- Initialize the return status to success
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
1635:
1695: WHEN OTHERS THEN
1696:
1697: -- Set the excetption Message and the stack
1698: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.update_line_single_cond'
1699: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1700: --
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1702: RAISE;
1703:
1740: );
1741: END IF;
1742:
1743: -- Reset the error stack when returning to the calling program
1744: PA_DEBUG.Reset_Err_Stack;
1745: -- If any errors exist then set the x_return_status to 'E'
1746:
1747: IF x_msg_count > 0 THEN
1748: x_return_status := FND_API.G_RET_STS_ERROR;
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: -- Set the excetption Message and the stack
1754: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_ACTION_SETS_PUB.Validate_Action_Set'
1755: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1756: --
1757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1758: RAISE;
1759: