1 PACKAGE PA_UTILS3 AS
2 /* $Header: PAXGUT3S.pls 120.7 2005/10/13 00:18:39 asubrama noship $*/
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 X_Inc_By_Per_Number OUT NOCOPY VARCHAR2,
63 X_Business_Group_Name OUT NOCOPY VARCHAR2);
64
65 Procedure GetCachedOrgName (P_Inc_By_Per_Id IN NUMBER,
66 P_Exp_Item_Date IN DATE,
67 X_Inc_By_Org_Name OUT NOCOPY VARCHAR2);
68
69 Procedure GetCachedOrgId (P_Inc_By_Per_Id IN NUMBER,
70 P_Exp_Item_Date IN DATE,
71 X_Inc_By_Org_Id OUT NOCOPY NUMBER);
72
73 Function GetCachedProjNum (P_Project_Id IN NUMBER) RETURN pa_projects_all.segment1%TYPE;
74
75 Function GetCachedTaskNum (P_Task_Id IN NUMBER) RETURN pa_tasks.task_number%TYPE;
76 Function GetEmpNum (P_Person_Id IN NUMBER) RETURN per_people_f.employee_number%TYPE;
77
78 Function GetEiProjTask (P_exp_item_id IN NUMBER,
79 P_Net_Zero_Flag IN VARCHAR2,
80 P_Transferred_from_exp_id IN NUMBER)
81 RETURN VARCHAR2;
82
83 PROCEDURE get_asset_addition_flag
84 (p_project_id IN pa_projects_all.project_id%TYPE,
85 x_asset_addition_flag OUT NOCOPY ap_invoice_distributions_all.assets_addition_flag%TYPE);
86
87 FUNCTION Get_Project_Type ( p_project_id IN pa_projects_all.project_id%TYPE)
88 RETURN varchar2;
89
90 /* R12 Changes Start */
91 /***************************************************************************
92 Function : GetCachedOUName
93 Purpose : This function caches Operating Unit Identifier and names
94 in a PL/SQL table and retrieves the OU Name using the
95 Org ID passedas a input parameter.
96 Arguments : P_Org_ID - Organization Identifier
97 Return : Operating Unit Name
98 ***************************************************************************/
99 FUNCTION GetCachedOUName (P_Org_ID HR_ALL_ORGANIZATION_UNITS_TL.ORGANIZATION_ID%TYPE)
100 RETURN HR_ALL_ORGANIZATION_UNITS_TL.NAME%TYPE;
101 /* R12 Changes End */
102
103 END PA_UTILS3;