PACKAGE BODY: APPS.PA_WBS_PKG

Source

1 PACKAGE BODY pa_wbs_pkg AS
2  -- $Header: PAXWBSB.pls 115.0 99/07/16 15:38:23 porting ship $
3 --================================================================
4 --
5 --
6 ----------------------------------------------------------------------------------
7 -- Functions and Procedures
8 ----------------------------------------------------------------------------------
9 --
10 
11 FUNCTION Get_project_id RETURN NUMBER
12 IS
13 BEGIN
14 
15 	RETURN (  GlobVars.project_id );
16 END;
17 
18 PROCEDURE Set_Project_id ( x_project_id IN NUMBER)
19 IS
20 BEGIN
21   GlobVars.project_id                   :=      x_project_id;
22 END;
23 
24 FUNCTION Get_Task_Number RETURN VARCHAR2
25 IS
26 BEGIN
27 
28         RETURN ( GlobVars.task_number );
29 END;
30 
31 PROCEDURE Set_Task_Number ( x_task_number IN VARCHAR2)
32 IS
33 BEGIN
34   GlobVars.task_number                  :=      x_task_number;
35 END;
36 
37 FUNCTION Get_Task_Name RETURN VARCHAR2
38 IS
39 BEGIN
40 
41         RETURN ( GlobVars.task_name );
42 END;
43 
44 PROCEDURE Set_Task_Name ( x_task_name IN VARCHAR2)
45 IS
46 BEGIN
47   GlobVars.task_name                    :=      x_task_name;
48 END;
49 
50 FUNCTION Get_Organization_id RETURN NUMBER
51 IS
52 BEGIN
53 
54         RETURN ( GlobVars.carrying_out_organization_id );
55 END;
56 
57 PROCEDURE Set_Organization_id ( x_carrying_out_organization_id IN NUMBER)
58 IS
59 BEGIN
60   GlobVars.carrying_out_organization_id :=      x_carrying_out_organization_id;
61 END;
62 
63 FUNCTION Get_Service_Code RETURN VARCHAR2
64 IS
65 BEGIN
66 
67         RETURN ( GlobVars.service_type_code );
68 END;
69 
70 PROCEDURE Set_Service_Code ( x_service_type_code IN VARCHAR2)
71 IS
72 BEGIN
73   GlobVars.service_type_code            :=      x_service_type_code;
74 END;
75 
76 FUNCTION Get_Manager_id RETURN NUMBER
77 IS
78 BEGIN
79 
80 	RETURN ( GlobVars.task_manager_person_id );
81 END;
82 
83 PROCEDURE Set_Manager_id ( x_task_manager_person_id IN NUMBER)
84 IS
85 BEGIN
86   GlobVars.task_manager_person_id       :=      x_task_manager_person_id;
87 END;
88 
89 FUNCTION Get_wbs_level RETURN NUMBER
90 IS
91 BEGIN
92 
93 	RETURN ( GlobVars.wbs_level );
94 END;
95 
96 PROCEDURE Set_wbs_level ( x_wbs_level IN NUMBER)
97 IS
98 BEGIN
99   GlobVars.wbs_level                    :=      x_wbs_level;
100 END;
101 
102 FUNCTION Get_Chargeable_flag RETURN VARCHAR2
103 IS
104 BEGIN
105 
106 	RETURN ( GlobVars.chargeable_flag );
107 END;
108 
109 PROCEDURE Set_Chargeable_flag ( x_chargeable_flag IN VARCHAR2)
110 IS
111 BEGIN
112   GlobVars.chargeable_flag              :=      x_chargeable_flag;
113 END;
114 
115 FUNCTION Get_Billable_flag RETURN VARCHAR2
116 IS
117 BEGIN
118 
119 	RETURN ( GlobVars.billable_flag );
120 END;
121 
122 PROCEDURE Set_Billable_flag ( x_billable_flag IN VARCHAR2)
123 IS
124 BEGIN
125   GlobVars.billable_flag                :=      x_billable_flag;
126 END;
127 
128 FUNCTION Get_Product_Code RETURN VARCHAR2
129 IS
130 BEGIN
131 
132         RETURN ( GlobVars.pm_product_code );
133 END;
134 
135 PROCEDURE Set_Product_Code ( x_product_code IN VARCHAR2)
136 IS
137 BEGIN
138   GlobVars.pm_product_code                    :=      x_product_code;
139 END;
140 
141 FUNCTION Get_Task_Reference RETURN VARCHAR2
142 IS
143 BEGIN
144 
145         RETURN ( GlobVars.pm_task_reference );
146 END;
147 
148 PROCEDURE Set_Task_Reference ( x_task_reference IN VARCHAR2)
149 IS
150 BEGIN
151   GlobVars.pm_task_reference                    :=      x_task_reference;
152 END;
153 
154 
155 END pa_wbs_pkg;