[Home] [Help]
4: -- ## Forward Declaration
5: PROCEDURE Upd_Budget_Acct_Line (
6: p_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE,
7: p_Project_ID IN PA_Projects_All.Project_ID%TYPE,
8: p_Period_Name IN GL_PERIODS.period_name%TYPE,
9: p_Start_Date IN DATE,
10: p_End_Date IN DATE,
11: P_CCID IN gl_Code_Combinations.code_Combination_Id%TYPE,
12: P_Budget_Version_ID IN pa_Budget_versions.budget_version_Id%TYPE,
23: -- Purpose : 1) Generate the Account Code CCID for every Budget Line
24: -- depending upon the calling mode parameter.
25: -- 2) Update the Budget Line Data with generated CCID
26: -- 3) Update the Budget Account Summary Details
27: -- 4) Insert new Budget Lines which are having missed GL Periods
28: -- 5) Derive the Resource and Task related Parameters
29: -- Parameters :
30: -- P_Calling_Mode--> SUBMIT/ BASELINE / GENERATE_ACCOUNT
31: ----------------------------------------------------------------------------------------+
355: IF P_Calling_Mode = 'BASELINE'
356: THEN
357: --------------------------------------------------+
358: -- Create Budget Line records in PA_BUDGET_LINES
359: -- whose GL Periods are not existing ...
360: -- NOT REQUIRED TO GENERATE : 04/23/01
361: --------------------------------------------------+
362: PA_FCK_UTIL.debug_msg(' before calling .... Insert_Into_Budget_Lines ');
363: PA_BUDGET_ACCOUNT_PKG.Insert_Into_Budget_Lines (
1230:
1231: PROCEDURE Upd_Budget_Acct_Line (
1232: p_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE,
1233: p_Project_ID IN PA_Projects_All.Project_ID%TYPE,
1234: p_Period_Name IN GL_PERIODS.period_name%TYPE,
1235: p_Start_Date IN DATE,
1236: p_End_Date IN DATE,
1237: P_CCID IN gl_Code_Combinations.code_Combination_Id%TYPE,
1238: P_Budget_Version_ID IN pa_Budget_versions.budget_version_Id%TYPE,
1387: l_Return_Status VARCHAR2(50);
1388: l_Msg_Count NUMBER;
1389: l_Msg_Data VARCHAR2(500);
1390:
1391: l_Gl_period_name GL_PERIODS.period_name%TYPE;
1392: l_Gl_start_Date DATE;
1393: l_Gl_End_Date DATE;
1394:
1395: t_Gl_start_Date DATE;
1410: l_Boundary_Code VARCHAR2(1);
1411: l_Set_Of_Books_Id pa_implementations_all.set_of_books_id%type;
1412:
1413: ------------------------------------------------------------------------------+
1414: -- Cursor to fetch all missed GL Periods for a given Res. Assign ID and Start Date
1415: ------------------------------------------------------------------------------+
1416: CURSOR cur_GL_Periods IS
1417: SELECT
1418: RA1.Resource_Assignment_ID RESOURCE_ASSIGNMENT_ID,
1412:
1413: ------------------------------------------------------------------------------+
1414: -- Cursor to fetch all missed GL Periods for a given Res. Assign ID and Start Date
1415: ------------------------------------------------------------------------------+
1416: CURSOR cur_GL_Periods IS
1417: SELECT
1418: RA1.Resource_Assignment_ID RESOURCE_ASSIGNMENT_ID,
1419: nvl(RA1.Task_ID, -1) TASK_ID,
1420: RA1.Resource_List_Member_ID RESOURCE_LIST_MEMBER_ID,
1543: l_GL_End_Date := P_Project_End_Date;
1544: END IF;
1545:
1546: PA_FCK_UTIL.debug_msg(' start_date '||to_char(l_GL_Start_Date)||' end date '||to_char(l_Gl_End_Date));
1547: FOR GlPrds IN cur_GL_Periods -- For every missed GL Periods
1548: LOOP
1549:
1550: l_Resource_Assignment_ID := GlPrds.Resource_Assignment_ID ;
1551: ----------------------------------------------------------------------+
1629:
1630: PA_FCK_UTIL.debug_msg(' after insert res_id '||to_char(l_Resource_Assignment_ID)||' start date '||to_char(GlPrds.Start_Date));
1631: END;
1632:
1633: END LOOP; -- End of cursor Missed GL Periods
1634:
1635: X_Msg_Count := l_Msg_Count ;
1636: X_Msg_Data := l_Msg_Data ;
1637: X_Return_Status := l_Return_Status;