PACKAGE BODY: APPS.PA_STATUS

Source

1 PACKAGE BODY pa_status AS
2 /* $Header: PAXVPS1B.pls 115.0 99/07/16 15:37:57 porting ship $  */
3 --================================================================
4 --
5 --
6 ------------------------------------------------------------------------------------------------------------------
7 -- Functions and Procedures to Drive Project Status Inquiry Views
8 ------------------------------------------------------------------------------------------------------------------
9 --
10 
11 --  Derive Project Id
12 	FUNCTION GetProjId RETURN NUMBER
13 	IS
14 	BEGIN
15 
16 		RETURN (  GlobVars.ProjectId );
17 	END;
18 
19 --  Derive Task Id
20 	FUNCTION GetTaskId RETURN NUMBER
21 	IS
22 	BEGIN
23 
24 		RETURN ( GlobVars.TaskId );
25 	END;
26 
27 --  Derive Resource List Id
28 	FUNCTION GetRsrcListId RETURN NUMBER
29 	IS
30 	BEGIN
31 
32 		RETURN ( GlobVars.RsrcListId );
33 	END;
34 
35 
36 --  Derive Resource List Member Id
37 	FUNCTION GetRsrcMemberId RETURN NUMBER
38 	IS
39 	BEGIN
40 
41 		RETURN ( GlobVars.RsrcMemberId );
42 	END;
43 
44 
45 
46 --  Derive Cost Budget Code
47 	FUNCTION GetCostBgtCode RETURN VARCHAR2
48 	IS
49 	BEGIN
50 
51 		RETURN (  GlobVars.CostBgtCode  );
52 	END;
53 
54 --  Derive Revenue Budget Code
55 	FUNCTION GetRevBgtCode RETURN VARCHAR2
56 	IS
57 	BEGIN
58 
59 		RETURN (  GlobVars.RevBgtCode  );
60 	END;
61 
62 --  Derive Start Date
63 	FUNCTION GetStartDate RETURN DATE
64 	IS
65 	BEGIN
66 
67 		RETURN (  GlobVars.StartDate  );
68 	END;
69 
70 --  Derive End Date
71 	FUNCTION GetEndDate RETURN DATE
72 	IS
73 	BEGIN
74 
75 		RETURN (  GlobVars.EndDate  );
76 	END;
77 -- Derive Factor
78         FUNCTION Get_Factor RETURN NUMBER
79         IS
80         BEGIN
81                 RETURN (  GlobVars.Get_Factor );
82         END;
83 
84 ------------------------------------------------------------------------------------------------------------------------
85 	PROCEDURE  pa_status_driver (
86 				x_project_id			IN 	NUMBER
87 				, x_task_id			IN	NUMBER
88 				, x_resource_list_id 		IN	NUMBER
89 				, x_resource_list_member_id	IN 	NUMBER
90 				, x_cost_budget_code  		IN	VARCHAR2
91 				, x_rev_budget_code		IN	VARCHAR2
92 				, x_start_date			IN	DATE
93 				, x_end_date			IN	DATE
94                                 , x_factor                      IN      NUMBER)
95 	 IS  BEGIN
96 			GlobVars.ProjectId		:=  	x_project_id;
97 			GlobVars.TaskId			:=	x_task_id;
98 			GlobVars.RsrcListId		:=	x_resource_list_id;
99 			GlobVars.RsrcMemberId		:= 	x_resource_list_member_id;
100 			GlobVars.CostBgtCode		:=	x_cost_budget_code;
101 			GlobVars.RevBgtCode		:=	x_rev_budget_code;
102 			GlobVars.StartDate		:=	x_start_date;
103 			GlobVars.EndDate		:=	x_end_date;
104                         GlobVars.Get_Factor             :=      x_factor;
105 	END pa_status_driver;
106 
107 END pa_status;