1 PACKAGE PA_UTILS3 AUTHID CURRENT_USER AS
2 /* $Header: PAXGUT3S.pls 120.9 2011/01/18 13:12:22 ethella ship $*/
3
4 TYPE ProjectsRec IS RECORD (
5 Project_Number Pa_Projects_All.Segment1%TYPE);
6
7 TYPE ProjectsTab IS TABLE OF ProjectsRec
8 INDEX BY BINARY_INTEGER;
9
10 TYPE TasksRec IS RECORD (
11 Task_Number Pa_Tasks.Task_Number%TYPE);
12
13 TYPE TasksTab IS TABLE OF TasksRec
14 INDEX BY BINARY_INTEGER;
15
16 TYPE EmpInfoRec IS RECORD (
17 Employee_Number Per_People_F.Employee_Number%TYPE,
18 Business_Group_Name Hr_Organization_Units.Name%TYPE);
19
20 TYPE EmpInfoTab Is TABLE OF EmpInfoRec
21 INDEX BY BINARY_INTEGER;
22
23 TYPE OrgNameRec IS RECORD (
24 PersonId_Date VARCHAR2(60),
25 Org_Name HR_Organization_Units.Name%TYPE);
26
27 TYPE OrgNameTab IS TABLE OF OrgNameRec
28 INDEX BY BINARY_INTEGER;
29
30 TYPE OrgIdRec IS RECORD (
31 Person_Id NUMBER,
32 Start_Date DATE,
33 End_Date DATE,
34 Org_Id HR_Organization_Units.Organization_Id%TYPE);
35
36 TYPE OrgIdTab IS TABLE OF OrgIdRec
37 INDEX BY BINARY_INTEGER;
38
39 /* R12 Changes Start */
40 TYPE OUNameRec IS RECORD (
41 Org_ID HR_ALL_ORGANIZATION_UNITS_TL.ORGANIZATION_ID%TYPE,
42 OU_Name HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE);
43
44 TYPE OUNameTab IS TABLE OF OUNameRec
45 INDEX BY BINARY_INTEGER;
46 /* R12 Changes End */
47
48 Function Get_System_Linkage ( P_Expenditure_Type IN varchar2,
49 P_System_Linkage_Function IN varchar2,
50 P_System_Linkage_M IN varchar2 ) RETURN VARCHAR2;
51
52 PRAGMA RESTRICT_REFERENCES ( Get_System_Linkage, WNDS );
53
54
55 Procedure GetCachedProjNum (P_Project_Id IN NUMBER,
56 X_Project_Number OUT NOCOPY VARCHAR2);
57
58 Procedure GetCachedTaskNum (P_Task_Id IN NUMBER,
59 X_Task_Number OUT NOCOPY VARCHAR2);
60
61 Procedure GetCachedEmpInfo (P_Inc_By_Per_Id IN NUMBER,
62 P_exp_date IN DATE ,
63 X_Inc_By_Per_Number OUT NOCOPY VARCHAR2,
64 X_Business_Group_Name OUT NOCOPY VARCHAR2);
65
66 Procedure GetCachedOrgName (P_Inc_By_Per_Id IN NUMBER,
67 P_Exp_Item_Date IN DATE,
68 X_Inc_By_Org_Name OUT NOCOPY VARCHAR2);
69
70 Procedure GetCachedOrgId (P_Inc_By_Per_Id IN NUMBER,
71 P_Exp_Item_Date IN DATE,
72 X_Inc_By_Org_Id OUT NOCOPY NUMBER);
73
74 Function GetCachedProjNum (P_Project_Id IN NUMBER) RETURN pa_projects_all.segment1%TYPE;
75
76 Function GetCachedTaskNum (P_Task_Id IN NUMBER) RETURN pa_tasks.task_number%TYPE;
77 Function GetEmpNum (P_Person_Id IN NUMBER,P_ei_date IN DATE DEFAULT sysdate) RETURN per_people_f.employee_number%TYPE;
78
79 Function GetEiProjTask (P_exp_item_id IN NUMBER,
80 P_Net_Zero_Flag IN VARCHAR2,
81 P_Transferred_from_exp_id IN NUMBER)
82 RETURN VARCHAR2;
83
84 PROCEDURE get_asset_addition_flag
85 (p_project_id IN pa_projects_all.project_id%TYPE,
86 x_asset_addition_flag OUT NOCOPY ap_invoice_distributions_all.assets_addition_flag%TYPE);
87
88 FUNCTION Get_Project_Type ( p_project_id IN pa_projects_all.project_id%TYPE)
89 RETURN varchar2;
90
91 /* Bug 10158684 changes start */
92 Function GetPastEmpNum (P_Person_Id IN NUMBER,P_ei_date IN DATE DEFAULT sysdate)
93 RETURN per_people_f.employee_number%TYPE;
94 /* Bug 10158684 changes end */
95
96 /* R12 Changes Start */
97 /***************************************************************************
98 Function : GetCachedOUName
99 Purpose : This function caches Operating Unit Identifier and names
100 in a PL/SQL table and retrieves the OU Name using the
101 Org ID passedas a input parameter.
102 Arguments : P_Org_ID - Organization Identifier
103 Return : Operating Unit Name
104 ***************************************************************************/
105 FUNCTION GetCachedOUName (P_Org_ID HR_ALL_ORGANIZATION_UNITS_TL.ORGANIZATION_ID%TYPE)
106 RETURN HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
107 /* R12 Changes End */
108
109 END PA_UTILS3;