[Home] [Help]
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;