[Home] [Help]
1549:
1550: l_Exp_End_Date Pa_Expenditures_All.Expenditure_Ending_Date%TYPE;
1551: l_Inc_By_Org_Id Hr_Organization_Units.Organization_Id%TYPE;
1552: l_Exp_Item_Date Pa_Expenditure_Items_All.Expenditure_Item_Date%TYPE;
1553: l_Proj_Id Pa_Projects_All.Project_Id%TYPE;
1554: l_Task_Id Pa_Tasks.Task_Id%TYPE;
1555: l_Exp_Type Pa_Expenditure_Types.Expenditure_Type%TYPE;
1556: l_Sys_Link Pa_Expenditure_Items_All.System_Linkage_Function%TYPE;
1557: l_Quantity Pa_Expenditure_Items_All.Quantity%TYPE;
5588: -- exists in Oracle Projects, X_project_Number will be populated
5589: -- with segment1, else X_project_number will be null.
5590: -- Parameters :
5591: -- IN
5592: -- P_Project_Id - Pa_Projects_All.Project_Id%TYPE
5593: -- OUT
5594: -- X_Error_Code - Varchar2
5595: -- X_Error_Type - Varchar2
5596: -- X_Project_Id - Pa_Projects_All.Segment1%TYPE
5592: -- P_Project_Id - Pa_Projects_All.Project_Id%TYPE
5593: -- OUT
5594: -- X_Error_Code - Varchar2
5595: -- X_Error_Type - Varchar2
5596: -- X_Project_Id - Pa_Projects_All.Segment1%TYPE
5597:
5598: /*-------------------------------------------------------------------------*/
5599:
5600: Procedure Validate_Project_Exists(
5597:
5598: /*-------------------------------------------------------------------------*/
5599:
5600: Procedure Validate_Project_Exists(
5601: P_Project_Id IN Pa_Projects_All.Project_Id%TYPE,
5602: X_Error_Code OUT NOCOPY Varchar2,
5603: X_Error_Type OUT NOCOPY Varchar2,
5604: X_Project_Number OUT NOCOPY Pa_Projects_All.Segment1%TYPE)
5605: Is
5600: Procedure Validate_Project_Exists(
5601: P_Project_Id IN Pa_Projects_All.Project_Id%TYPE,
5602: X_Error_Code OUT NOCOPY Varchar2,
5603: X_Error_Type OUT NOCOPY Varchar2,
5604: X_Project_Number OUT NOCOPY Pa_Projects_All.Segment1%TYPE)
5605: Is
5606:
5607: /* begin bug 4766396
5608: Cursor GetProjInfo(P_Proj_Id IN Pa_Projects_All.Project_Id%TYPE) Is
5604: X_Project_Number OUT NOCOPY Pa_Projects_All.Segment1%TYPE)
5605: Is
5606:
5607: /* begin bug 4766396
5608: Cursor GetProjInfo(P_Proj_Id IN Pa_Projects_All.Project_Id%TYPE) Is
5609: Select
5610: Project_Number
5611: From
5612: Pa_Online_Projects_V
5612: Pa_Online_Projects_V
5613: Where
5614: Project_Id = P_Proj_Id; */
5615:
5616: Cursor GetProjInfo(P_Proj_Id IN Pa_Projects_All.Project_Id%TYPE) IS
5617: select
5618: p.segment1
5619: from Pa_Online_Projects_V pp,
5620: pa_projects_all p
5616: Cursor GetProjInfo(P_Proj_Id IN Pa_Projects_All.Project_Id%TYPE) IS
5617: select
5618: p.segment1
5619: from Pa_Online_Projects_V pp,
5620: pa_projects_all p
5621: where pp.Project_Id = P_Proj_Id
5622: and pp.project_id = p.project_id;
5623: /* end bug 4766396 */
5624:
5621: where pp.Project_Id = P_Proj_Id
5622: and pp.project_id = p.project_id;
5623: /* end bug 4766396 */
5624:
5625: l_Proj_Num Pa_Projects_All.Segment1%TYPE := Null;
5626:
5627: Begin
5628:
5629: G_Stage := 'Entering procedure Validate_Project_Exists().';
7373: FI.Expenditure_Type_Class,
7374: FI.Item_Quantity
7375: From
7376: Pa_Forecast_Items FI,
7377: Pa_Projects_All P,
7378: Pa_Project_Assignments PPA
7379: Where
7380: Person_Id = P_Emp_Id
7381: And Item_Date Between P_Start_Date
7403: FI.Expenditure_Type_Class,
7404: FI.Item_Quantity
7405: From
7406: Pa_Forecast_Items FI,
7407: Pa_Projects_All P
7408: Where
7409: Person_Id = P_Emp_Id
7410: And Item_Date Between P_Start_Date
7411: And P_Stop_Date
7431: FI.Expenditure_Type_Class,
7432: FI.Item_Quantity
7433: From
7434: Pa_Forecast_Items FI,
7435: Pa_Projects_All P,
7436: Pa_Resource_Txn_Attributes PTA
7437: Where
7438: PTA.Person_Id = P_Emp_Id
7439: And FI.Resource_id = PTA.Resource_id
7464: -- And nvl(Sys_Link_End_Date_Active, P_Exp_Item_Date);
7465:
7466: PRMAssignRecs PRMAssignments%ROWTYPE;
7467:
7468: -- Cursor ValidateProject ( P_Project_Id IN Pa_Projects_All.Project_Id%TYPE ) Is
7469: -- Select
7470: -- 'Y'
7471: -- From
7472: -- Pa_Online_Projects_V