DBA Data[Home] [Help]

APPS.PA_BUDGET_ACCOUNT_PKG dependencies on FND_API

Line 58: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

54: BEGIN
55:
56: PA_FCK_UTIL.debug_msg('Entering Gen_Account ..........');
57: PA_FCK_UTIL.debug_msg('p_calling_mode ..........'||p_calling_mode);
58: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
59:
60: -----------------------------------------------------------------+
61: -- Fetch the values of Budget_type_Code and Project_ID and
62: -- Also check If Budgetry Control is implemented

Line 115: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

111: EXCEPTION
112: WHEN OTHERS THEN
113: X_Msg_Count := 1;
114: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
115: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
116: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_BUDGET_ACCOUNT_PKG',
117: P_Procedure_Name => 'Gen_Account');
118: END Gen_Account; /* End of Gen_Account API */
119:

Line 240: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

236: l_prev_ccid pa_budget_lines.code_combination_id%type;
237: BEGIN
238:
239: PA_FCK_UTIL.debug_msg('Entering Gen_Acct_All_Lines ..........');
240: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
241:
242: PA_FCK_UTIL.debug_msg('p_calling_mode ..........'||p_calling_mode);
243: -----------------------------------------------+
244: -- Get the budgetary control options

Line 436: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

432:
433: FOR bl IN cur_All_Budget_Lines -- Loop thru every Budget Line
434: LOOP
435:
436: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
437:
438: ----------------------------------------------------------------------------+
439: -- Call API Gen_Acct_Line to generate CCID for each Budget Line
440: ----------------------------------------------------------------------------+

Line 490: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS and

486:
487:
488: -- Following code added to validate the accounts that are being generated ..
489: -- If txn. exists against the budget line then account change is not allowed ..
490: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS and
491: l_txn_exists_against_project = 'Y' and
492: P_Calling_Mode in ('SUBMIT','GENERATE_ACCOUNT')
493: ) then -- I
494:

Line 553: l_Return_Status := FND_API.G_RET_STS_ERROR;

549: PA_FCK_UTIL.debug_msg('Assigning old value back');
550: l_ccid := l_prev_ccid;
551:
552: Else
553: l_Return_Status := FND_API.G_RET_STS_ERROR;
554: l_error_flag := 'Y';
555:
556: select description
557: into l_Error_message

Line 576: IF l_Return_Status = FND_API.G_RET_STS_SUCCESS

572: End If; -- II
573:
574: End If; -- I
575:
576: IF l_Return_Status = FND_API.G_RET_STS_SUCCESS
577: THEN
578: UPDATE PA_BUDGET_LINES
579: SET Code_Combination_ID = l_CCID,
580: CCID_Gen_Status_Code = 'Y'

Line 586: if ( l_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR ) then

582: Start_Date = bl.Start_Date ;
583: ELSE
584: l_Error_Flag := 'Y' ;
585:
586: if ( l_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR ) then
587:
588: UPDATE PA_BUDGET_LINES
589: SET CCID_Gen_Rej_Message = l_Msg_Data,
590: CCID_Gen_Status_Code = 'N'

Line 622: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS and

618: WHEN NO_DATA_FOUND then
619: l_is_cc_budget := 'N';
620: end;
621:
622: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS and
623: (P_Calling_Mode in ('SUBMIT','GENERATE_ACCOUNT')
624: or (P_Calling_Mode in ('BASELINE') and l_is_cc_budget = 'Y'))) then
625:
626: -- Update the Budget and Available balance amounts

Line 641: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS

637: l_Return_Status,
638: l_Msg_Count,
639: l_Msg_Data
640: );
641: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
642: THEN
643: l_Error_Flag := 'Y' ;
644: END IF;
645: END IF;

Line 661: X_Return_Status := FND_API.G_RET_STS_SUCCESS ;

657: raise l_acc_gen_error;
658: END IF;
659:
660: BEGIN
661: X_Return_Status := FND_API.G_RET_STS_SUCCESS ;
662: IF (l_Prev_Budget_Version_ID IS NOT NULL and P_Calling_Mode in ('SUBMIT','GENERATE_ACCOUNT')) then
663: INSERT INTO PA_BUDGET_ACCT_LINES (
664: Budget_Acct_Line_ID,
665: Budget_Version_ID,

Line 720: x_return_status := FND_API.G_RET_STS_ERROR;

716: EXCEPTION
717:
718: WHEN l_no_budgetary_control THEN
719: PA_UTILS.Add_Message('PA', 'PA_BC_NO_BGT_CNTL');
720: x_return_status := FND_API.G_RET_STS_ERROR;
721: x_msg_data := 'PA_BC_NO_BGT_CNTL';
722: x_msg_count := 1;
723:
724: WHEN l_acc_gen_error THEN

Line 726: x_return_status := FND_API.G_RET_STS_ERROR;

722: x_msg_count := 1;
723:
724: WHEN l_acc_gen_error THEN
725: PA_UTILS.Add_Message('PA', 'PA_BC_ACC_GEN_ERROR');
726: x_return_status := FND_API.G_RET_STS_ERROR;
727: x_msg_data := 'PA_BC_ACC_GEN_ERROR';
728: x_msg_count := 1;
729:
730: WHEN OTHERS THEN

Line 733: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

729:
730: WHEN OTHERS THEN
731: X_Msg_Count := 1;
732: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
733: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
734: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_BUDGET_ACCOUNT_PKG',
735: P_Procedure_Name => 'Gen_Acct_All_Lines');
736:
737: END Gen_Acct_All_Lines ; /* End of Gen_Acct_All_Lines API */

Line 824: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

820:
821: BEGIN
822:
823: PA_FCK_UTIL.debug_msg('Entering Gen_Acct_Lines ..........');
824: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
825:
826: ------------------------------------------------------------------+
827: -- Derive Task Parameters only when Top Task Details are present.
828: ------------------------------------------------------------------+

Line 1212: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

1208: PA_FCK_UTIL.debug_msg(' Unexpected Error ..........');
1209: PA_FCK_UTIL.debug_msg(SUBSTR(SQLERRM, 1, 240));
1210: X_Msg_Count := 1;
1211: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1212: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1213:
1214: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_BUDGET_ACCOUNT_PKG',
1215: P_Procedure_Name => 'Gen_Acct_Line');
1216:

Line 1261: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

1257: l_Msg_Data VARCHAR2(500);
1258:
1259: BEGIN
1260:
1261: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1262:
1263: PA_FCK_UTIL.debug_msg('Entering Upd_Budget_Acct_Line ...... ');
1264: -------------------------------------------------------------------------------+
1265: -- Update a record for a combination of ( Budget_Verison, GL_Period and CCID )

Line 1367: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

1363: WHEN OTHERS THEN
1364: PA_FCK_UTIL.debug_msg(' failed with the error '||SUBSTR(SQLERRM, 1, 240));
1365: X_Msg_Count := 1;
1366: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1367: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1368:
1369: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_BUDGET_ACCOUNT_PKG',
1370: P_Procedure_Name => 'Upd_Budget_Acct_Line');
1371:

Line 1464: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

1460:
1461: BEGIN
1462:
1463: PA_FCK_UTIL.debug_msg(' Entering Insert_Into_Budget_Lines ');
1464: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1465:
1466: PA_FCK_UTIL.debug_msg('P_Budget_Version_ID ......'||P_Budget_Version_ID);
1467: PA_FCK_UTIL.debug_msg('P_Project_Id ......'||P_Project_Id);
1468: PA_FCK_UTIL.debug_msg('p_Project_Start_Date ......'||P_Project_Start_Date);

Line 1646: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

1642: WHEN OTHERS THEN
1643: PA_FCK_UTIL.debug_msg(' ERROR INSERT_INTO_BUDGET_LINES '||SQLERRM);
1644: X_Msg_Count := 1;
1645: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1646: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1647:
1648: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_BUDGET_ACCOUNT_PKG',
1649: P_Procedure_Name => 'Insert_Into_Budget_Lines');
1650: END Insert_Into_Budget_Lines ; /* End API Insert_Into_Budget_Lines */

Line 1680: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

1676: l_Msg_Data VARCHAR2(500);
1677:
1678: BEGIN
1679:
1680: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1681:
1682: -----------------------------------------------------------------------+
1683: -- Derive Employee/Person Parameters if Resource Type: EMPLOYEE
1684: -----------------------------------------------------------------------+

Line 1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1766: EXCEPTION
1767: WHEN OTHERS THEN
1768: x_msg_Count := 1;
1769: x_msg_Data := substr(SQLERRM, 1, 240);
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771:
1772: FND_MSG_PUB.add_Exc_msg( p_pkg_name => 'PA_BUDGET_ACCOUNT_PKG',
1773: p_procedure_name => 'Derive_Resource_Params');
1774:

Line 1801: l_Return_Status := FND_API.G_RET_STS_SUCCESS;

1797: l_Msg_Data VARCHAR2(500);
1798:
1799: BEGIN
1800:
1801: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1802:
1803: --------------------------------------------------------------------+
1804: -- Derive Top Task parameters if Top Task ID is passed
1805: --------------------------------------------------------------------+

Line 1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1851: EXCEPTION
1852: WHEN OTHERS THEN
1853: x_msg_Count := 1;
1854: x_msg_Data := substr(SQLERRM, 1, 240);
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856:
1857: FND_MSG_PUB.add_Exc_msg( p_pkg_name => 'PA_BUDGET_ACCOUNT_PKG',
1858: p_procedure_name => 'Derive_Task_Params');
1859: