52: --
53: PROCEDURE Start_Process
54: (
55: p_api_version IN NUMBER ,
56: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
57: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
58: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
59: p_return_status OUT NOCOPY VARCHAR2 ,
60: p_msg_count OUT NOCOPY NUMBER ,
53: PROCEDURE Start_Process
54: (
55: p_api_version IN NUMBER ,
56: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
57: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
58: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
59: p_return_status OUT NOCOPY VARCHAR2 ,
60: p_msg_count OUT NOCOPY NUMBER ,
61: p_msg_data OUT NOCOPY VARCHAR2 ,
54: (
55: p_api_version IN NUMBER ,
56: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
57: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
58: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
59: p_return_status OUT NOCOPY VARCHAR2 ,
60: p_msg_count OUT NOCOPY NUMBER ,
61: p_msg_data OUT NOCOPY VARCHAR2 ,
62: --
105: /* Bug 2576222 Start */
106: g_user_name := fnd_global.user_name;
107: /* Bug 2576222 End */
108:
109: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
110: FND_MSG_PUB.initialize ;
111: END IF;
112: --
113: p_return_status := FND_API.G_RET_STS_SUCCESS ;
109: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
110: FND_MSG_PUB.initialize ;
111: END IF;
112: --
113: p_return_status := FND_API.G_RET_STS_SUCCESS ;
114:
115: --
116: -- Get p_item_key related information.
117: --
241: EXCEPTION
242: --
243: WHEN OTHERS THEN
244: --
245: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246: --
247: RAISE ;
248:
249: END Start_Process ;
352: l_operation_type VARCHAR2(20) ;
353: --
354: BEGIN
355:
356: l_return_status := FND_API.G_RET_STS_SUCCESS ;
357:
358: IF ( funcmode = 'RUN' ) THEN
359: --
360: -- Get operation_type item_attribute.
373: --
374: PSB_Create_BR_Pvt.Check_BR_Ops_Concurrency
375: (
376: p_api_version => 1.0,
377: p_init_msg_list => FND_API.G_FALSE ,
378: p_commit => FND_API.G_FALSE ,
379: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
380: p_return_status => l_return_status,
381: p_msg_count => l_msg_count,
374: PSB_Create_BR_Pvt.Check_BR_Ops_Concurrency
375: (
376: p_api_version => 1.0,
377: p_init_msg_list => FND_API.G_FALSE ,
378: p_commit => FND_API.G_FALSE ,
379: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
380: p_return_status => l_return_status,
381: p_msg_count => l_msg_count,
382: p_msg_data => l_msg_data,
375: (
376: p_api_version => 1.0,
377: p_init_msg_list => FND_API.G_FALSE ,
378: p_commit => FND_API.G_FALSE ,
379: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
380: p_return_status => l_return_status,
381: p_msg_count => l_msg_count,
382: p_msg_data => l_msg_data,
383: --
384: p_budget_revision_id => l_budget_revision_id ,
385: p_operation_type => l_operation_type
386: );
387: --
388: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
389: -- (TBD) Need to specify why it failed (?).
390: result := 'COMPLETE:NO' ;
391: ELSE
392: result := 'COMPLETE:YES' ;
472: --
473: PSB_Budget_Revisions_Pvt.Apply_Constraints
474: (
475: p_api_version => 1.0 ,
476: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
477: p_return_status => l_return_status ,
478: p_validation_status => l_validation_status ,
479: --
480: p_budget_revision_id => l_budget_revision_id ,
670: --
671: PSB_Create_BR_Pvt.Freeze_Budget_Revision
672: (
673: p_api_version => 1.0 ,
674: p_init_msg_list => FND_API.G_FALSE,
675: p_commit => FND_API.G_FALSE,
676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
677: p_return_status => l_return_status,
678: p_msg_count => l_msg_count,
671: PSB_Create_BR_Pvt.Freeze_Budget_Revision
672: (
673: p_api_version => 1.0 ,
674: p_init_msg_list => FND_API.G_FALSE,
675: p_commit => FND_API.G_FALSE,
676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
677: p_return_status => l_return_status,
678: p_msg_count => l_msg_count,
679: p_msg_data => l_msg_data,
672: (
673: p_api_version => 1.0 ,
674: p_init_msg_list => FND_API.G_FALSE,
675: p_commit => FND_API.G_FALSE,
676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
677: p_return_status => l_return_status,
678: p_msg_count => l_msg_count,
679: p_msg_data => l_msg_data,
680: --
681: p_budget_revision_id => l_budget_revision_id ,
682: p_freeze_flag => 'Y'
683: );
684: --
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
687: END IF ;
688:
689: --
682: p_freeze_flag => 'Y'
683: );
684: --
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
687: END IF ;
688:
689: --
690: -- Send 'NOTIFY_OF_FREEZE_COMPLETION' notification to the top level budget
708:
709: PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
710: (
711: p_api_version => 1.0 ,
712: p_init_msg_list => FND_API.G_FALSE,
713: p_commit => FND_API.G_FALSE,
714: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
715: p_return_status => l_return_status,
716: p_msg_count => l_msg_count,
709: PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
710: (
711: p_api_version => 1.0 ,
712: p_init_msg_list => FND_API.G_FALSE,
713: p_commit => FND_API.G_FALSE,
714: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
715: p_return_status => l_return_status,
716: p_msg_count => l_msg_count,
717: p_msg_data => l_msg_data,
710: (
711: p_api_version => 1.0 ,
712: p_init_msg_list => FND_API.G_FALSE,
713: p_commit => FND_API.G_FALSE,
714: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
715: p_return_status => l_return_status,
716: p_msg_count => l_msg_count,
717: p_msg_data => l_msg_data,
718: --
720: p_budget_revision_tbl => l_budget_revisions_tab
721: );
722: --
723:
724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
726: END IF ;
727: --
728:
721: );
722: --
723:
724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
726: END IF ;
727: --
728:
729: --
743: --
744: PSB_Create_BR_Pvt.Freeze_Budget_Revision
745: (
746: p_api_version => 1.0 ,
747: p_init_msg_list => FND_API.G_FALSE,
748: p_commit => FND_API.G_FALSE,
749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
750: p_return_status => l_return_status,
751: p_msg_count => l_msg_count,
744: PSB_Create_BR_Pvt.Freeze_Budget_Revision
745: (
746: p_api_version => 1.0 ,
747: p_init_msg_list => FND_API.G_FALSE,
748: p_commit => FND_API.G_FALSE,
749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
750: p_return_status => l_return_status,
751: p_msg_count => l_msg_count,
752: p_msg_data => l_msg_data,
745: (
746: p_api_version => 1.0 ,
747: p_init_msg_list => FND_API.G_FALSE,
748: p_commit => FND_API.G_FALSE,
749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
750: p_return_status => l_return_status,
751: p_msg_count => l_msg_count,
752: p_msg_data => l_msg_data,
753: --
754: p_budget_revision_id => l_budget_revisions_tab(i) ,
755: p_freeze_flag => 'Y'
756: );
757: --
758: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
760: END IF ;
761: --
762:
755: p_freeze_flag => 'Y'
756: );
757: --
758: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
760: END IF ;
761: --
762:
763: --
890: p_order_by3 => null,
891: p_error_code => l_error_code -- bug 4341619
892: );
893:
894: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
896: END IF ;
897:
898: /* start bug # 4341619 */
891: p_error_code => l_error_code -- bug 4341619
892: );
893:
894: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
896: END IF ;
897:
898: /* start bug # 4341619 */
899: if(l_error_code = 'NO_ERR') then
1029: --
1030: PSB_Create_BR_Pvt.Find_Parent_Budget_Revisions
1031: (
1032: p_api_version => 1.0 ,
1033: p_init_msg_list => FND_API.G_FALSE,
1034: p_commit => FND_API.G_FALSE,
1035: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1036: p_return_status => l_return_status,
1037: p_msg_count => l_msg_count,
1030: PSB_Create_BR_Pvt.Find_Parent_Budget_Revisions
1031: (
1032: p_api_version => 1.0 ,
1033: p_init_msg_list => FND_API.G_FALSE,
1034: p_commit => FND_API.G_FALSE,
1035: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1036: p_return_status => l_return_status,
1037: p_msg_count => l_msg_count,
1038: p_msg_data => l_msg_data,
1031: (
1032: p_api_version => 1.0 ,
1033: p_init_msg_list => FND_API.G_FALSE,
1034: p_commit => FND_API.G_FALSE,
1035: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1036: p_return_status => l_return_status,
1037: p_msg_count => l_msg_count,
1038: p_msg_data => l_msg_data,
1039: --
1040: p_budget_revision_id => l_budget_revision_id,
1041: p_budget_revision_tbl => l_budget_revisions_tab
1042: );
1043: --
1044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1046: END IF ;
1047:
1048: --
1041: p_budget_revision_tbl => l_budget_revisions_tab
1042: );
1043: --
1044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1046: END IF ;
1047:
1048: --
1049: -- Update view_line_flag for the parent revisions
1308: --
1309: PSB_Budget_Revisions_Pvt.Create_Budget_Revision
1310: (
1311: p_api_version => 1.0 ,
1312: p_init_msg_list => FND_API.G_FALSE,
1313: p_commit => FND_API.G_FALSE,
1314: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1315: p_return_status => l_return_status,
1316: p_msg_count => l_msg_count,
1309: PSB_Budget_Revisions_Pvt.Create_Budget_Revision
1310: (
1311: p_api_version => 1.0 ,
1312: p_init_msg_list => FND_API.G_FALSE,
1313: p_commit => FND_API.G_FALSE,
1314: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1315: p_return_status => l_return_status,
1316: p_msg_count => l_msg_count,
1317: p_msg_data => l_msg_data ,
1310: (
1311: p_api_version => 1.0 ,
1312: p_init_msg_list => FND_API.G_FALSE,
1313: p_commit => FND_API.G_FALSE,
1314: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1315: p_return_status => l_return_status,
1316: p_msg_count => l_msg_count,
1317: p_msg_data => l_msg_data ,
1318: --
1322: p_requestor => l_submitter_id
1323: );
1324:
1325: --
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1328: END IF ;
1329:
1330: /*PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
1323: );
1324:
1325: --
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1328: END IF ;
1329:
1330: /*PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
1331: (
1329:
1330: /*PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
1331: (
1332: p_api_version => 1.0 ,
1333: p_init_msg_list => FND_API.G_FALSE,
1334: p_commit => FND_API.G_FALSE,
1335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1336: p_return_status => l_return_status,
1337: p_msg_count => l_msg_count,
1330: /*PSB_Create_BR_Pvt.Find_Child_Budget_Revisions
1331: (
1332: p_api_version => 1.0 ,
1333: p_init_msg_list => FND_API.G_FALSE,
1334: p_commit => FND_API.G_FALSE,
1335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1336: p_return_status => l_return_status,
1337: p_msg_count => l_msg_count,
1338: p_msg_data => l_msg_data,
1331: (
1332: p_api_version => 1.0 ,
1333: p_init_msg_list => FND_API.G_FALSE,
1334: p_commit => FND_API.G_FALSE,
1335: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1336: p_return_status => l_return_status,
1337: p_msg_count => l_msg_count,
1338: p_msg_data => l_msg_data,
1339: --
1340: p_budget_revision_id => l_budget_revision_id ,
1341: p_budget_revision_tbl => l_budget_revisions_tab
1342: );
1343: --
1344: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1346: END IF ;
1347: --
1348:
1341: p_budget_revision_tbl => l_budget_revisions_tab
1342: );
1343: --
1344: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1346: END IF ;
1347: --
1348:
1349: l_budget_revisions_tab(0) := l_budget_revision_id ;
1358: --
1359: PSB_Budget_Revisions_Pvt.Create_Budget_Revision
1360: (
1361: p_api_version => 1.0 ,
1362: p_init_msg_list => FND_API.G_FALSE,
1363: p_commit => FND_API.G_FALSE,
1364: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1365: p_return_status => l_return_status,
1366: p_msg_count => l_msg_count,
1359: PSB_Budget_Revisions_Pvt.Create_Budget_Revision
1360: (
1361: p_api_version => 1.0 ,
1362: p_init_msg_list => FND_API.G_FALSE,
1363: p_commit => FND_API.G_FALSE,
1364: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1365: p_return_status => l_return_status,
1366: p_msg_count => l_msg_count,
1367: p_msg_data => l_msg_data ,
1360: (
1361: p_api_version => 1.0 ,
1362: p_init_msg_list => FND_API.G_FALSE,
1363: p_commit => FND_API.G_FALSE,
1364: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1365: p_return_status => l_return_status,
1366: p_msg_count => l_msg_count,
1367: p_msg_data => l_msg_data ,
1368: --
1372: p_requestor => l_submitter_id
1373: );
1374:
1375: --
1376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1378: END IF ;
1379: --
1380: END LOOP ; */
1373: );
1374:
1375: --
1376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1378: END IF ;
1379: --
1380: END LOOP ; */
1381:
1472: IF l_currency_code <> 'STAT' THEN -- Bug 3029168
1473: PSB_Budget_Revisions_Pvt.Update_Baseline_Values
1474: (
1475: p_api_version => 1.0 ,
1476: p_init_msg_list => FND_API.G_FALSE,
1477: p_commit => FND_API.G_FALSE,
1478: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1479: p_return_status => l_return_status,
1480: p_msg_count => l_msg_count,
1473: PSB_Budget_Revisions_Pvt.Update_Baseline_Values
1474: (
1475: p_api_version => 1.0 ,
1476: p_init_msg_list => FND_API.G_FALSE,
1477: p_commit => FND_API.G_FALSE,
1478: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1479: p_return_status => l_return_status,
1480: p_msg_count => l_msg_count,
1481: p_msg_data => l_msg_data ,
1474: (
1475: p_api_version => 1.0 ,
1476: p_init_msg_list => FND_API.G_FALSE,
1477: p_commit => FND_API.G_FALSE,
1478: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1479: p_return_status => l_return_status,
1480: p_msg_count => l_msg_count,
1481: p_msg_data => l_msg_data ,
1482: --
1483: p_budget_revision_id => l_budget_revision_id
1484: );
1485:
1486: --
1487: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1489: END IF ;
1490: END IF;
1491:
1484: );
1485:
1486: --
1487: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1489: END IF ;
1490: END IF;
1491:
1492: END IF ;
1589:
1590: PSB_Budget_Revisions_Pvt.Budget_Revision_Funds_Check
1591: (
1592: p_api_version => 1.0 ,
1593: p_init_msg_list => FND_API.G_FALSE,
1594: p_commit => FND_API.G_FALSE,
1595: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1596: p_return_status => l_return_status,
1597: p_msg_count => l_msg_count,
1590: PSB_Budget_Revisions_Pvt.Budget_Revision_Funds_Check
1591: (
1592: p_api_version => 1.0 ,
1593: p_init_msg_list => FND_API.G_FALSE,
1594: p_commit => FND_API.G_FALSE,
1595: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1596: p_return_status => l_return_status,
1597: p_msg_count => l_msg_count,
1598: p_msg_data => l_msg_data ,
1591: (
1592: p_api_version => 1.0 ,
1593: p_init_msg_list => FND_API.G_FALSE,
1594: p_commit => FND_API.G_FALSE,
1595: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
1596: p_return_status => l_return_status,
1597: p_msg_count => l_msg_count,
1598: p_msg_data => l_msg_data ,
1599: --
1603: p_called_from => l_called_from -- Bug#4310411
1604: );
1605:
1606: --
1607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1609: END IF ;
1610: --
1611:
1604: );
1605:
1606: --
1607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1609: END IF ;
1610: --
1611:
1612: /* start bug 4341619 */
1798: --
1799: PSB_Create_BR_Pvt.Freeze_Budget_Revision
1800: (
1801: p_api_version => 1.0 ,
1802: p_init_msg_list => FND_API.G_FALSE,
1803: p_commit => FND_API.G_FALSE,
1804: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1805: p_return_status => l_return_status,
1806: p_msg_count => l_msg_count,
1799: PSB_Create_BR_Pvt.Freeze_Budget_Revision
1800: (
1801: p_api_version => 1.0 ,
1802: p_init_msg_list => FND_API.G_FALSE,
1803: p_commit => FND_API.G_FALSE,
1804: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1805: p_return_status => l_return_status,
1806: p_msg_count => l_msg_count,
1807: p_msg_data => l_msg_data,
1800: (
1801: p_api_version => 1.0 ,
1802: p_init_msg_list => FND_API.G_FALSE,
1803: p_commit => FND_API.G_FALSE,
1804: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1805: p_return_status => l_return_status,
1806: p_msg_count => l_msg_count,
1807: p_msg_data => l_msg_data,
1808: --
1809: p_budget_revision_id => l_budget_revision_id,
1810: p_freeze_flag => 'N'
1811: );
1812: --
1813: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1815: END IF ;
1816: --
1817:
1810: p_freeze_flag => 'N'
1811: );
1812: --
1813: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1815: END IF ;
1816: --
1817:
1818: result := 'COMPLETE' ;
2249: --
2250: PROCEDURE Start_Distribution_Process
2251: (
2252: p_api_version IN NUMBER ,
2253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
2254: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
2256: p_return_status OUT NOCOPY VARCHAR2 ,
2257: p_msg_count OUT NOCOPY NUMBER ,
2250: PROCEDURE Start_Distribution_Process
2251: (
2252: p_api_version IN NUMBER ,
2253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
2254: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
2256: p_return_status OUT NOCOPY VARCHAR2 ,
2257: p_msg_count OUT NOCOPY NUMBER ,
2258: p_msg_data OUT NOCOPY VARCHAR2 ,
2251: (
2252: p_api_version IN NUMBER ,
2253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
2254: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
2256: p_return_status OUT NOCOPY VARCHAR2 ,
2257: p_msg_count OUT NOCOPY NUMBER ,
2258: p_msg_data OUT NOCOPY VARCHAR2 ,
2259: --
2278: BEGIN
2279: --
2280: SAVEPOINT Start_Distribution_Process_Pvt ;
2281: --
2282: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2283: p_api_version,
2284: l_api_name,
2285: G_PKG_NAME )
2286: THEN
2283: p_api_version,
2284: l_api_name,
2285: G_PKG_NAME )
2286: THEN
2287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2288: END IF;
2289: --
2290:
2291: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
2287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2288: END IF;
2289: --
2290:
2291: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
2292: FND_MSG_PUB.initialize ;
2293: END IF;
2294: --
2295: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2291: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
2292: FND_MSG_PUB.initialize ;
2293: END IF;
2294: --
2295: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2296: --
2297:
2298: WF_Engine.CreateProcess
2299: (
2354: ItemKey => l_ItemKey
2355: );
2356:
2357: --
2358: IF FND_API.To_Boolean ( p_commit ) THEN
2359: COMMIT WORK;
2360: END IF;
2361: --
2362: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2363: p_data => p_msg_data );
2364: --
2365: EXCEPTION
2366: --
2367: WHEN FND_API.G_EXC_ERROR THEN
2368: --
2369: ROLLBACK TO Start_Distribution_Process_Pvt ;
2370: p_return_status := FND_API.G_RET_STS_ERROR;
2371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2366: --
2367: WHEN FND_API.G_EXC_ERROR THEN
2368: --
2369: ROLLBACK TO Start_Distribution_Process_Pvt ;
2370: p_return_status := FND_API.G_RET_STS_ERROR;
2371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2372: p_data => p_msg_data );
2373: --
2374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2370: p_return_status := FND_API.G_RET_STS_ERROR;
2371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2372: p_data => p_msg_data );
2373: --
2374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2375: --
2376: ROLLBACK TO Start_Distribution_Process_Pvt ;
2377: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2373: --
2374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2375: --
2376: ROLLBACK TO Start_Distribution_Process_Pvt ;
2377: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2379: p_data => p_msg_data );
2380: --
2381: WHEN OTHERS THEN
2380: --
2381: WHEN OTHERS THEN
2382: --
2383: ROLLBACK TO Start_Distribution_Process_Pvt ;
2384: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2385: --
2386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2387: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2388: l_api_name);
2689:
2690: PSB_Budget_Revisions_PVT.Apply_Revision_Rules
2691: (
2692: p_api_version => 1.0,
2693: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2694: p_return_status => l_return_status,
2695: p_validation_status => l_validation_status,
2696: p_budget_revision_id => l_budget_revision_id
2697: );