1 package PA_RELATIONSHIP_UTILS AUTHID CURRENT_USER as
2 /*$Header: PAXRELUS.pls 120.8 2006/04/26 16:12:59 sliburd noship $*/
3
4 -- API name : Check_Create_Link_Ok
5 -- Type : Private Procedure
6 -- Pre-reqs : None
7 -- Return Value : N/A
8 -- Parameters
9 -- p_element_version_id_from IN NUMBER
10 -- p_element_version_id_to IN NUMBER
11 -- x_return_status OUT VARCHAR2
12 -- x_error_message_code OUT VARCHAR2
13 --
14 --
15 -- History
16 --
17 -- 25-JUN-01 HSIU -Created
18 --
19 --
20
21
22 procedure Check_Create_Link_Ok
23 (
24 p_element_version_id_from IN NUMBER
25 ,p_element_version_id_to IN NUMBER
26 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
27 ,x_error_message_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
28 );
29
30 -- API name : Check_Create_Dependency_Ok
31 -- Type : Private Procedure
32 -- Pre-reqs : None
33 -- Return Value : N/A
34 -- Parameters
35 -- p_element_version_id_from IN NUMBER
36 -- p_element_version_id_to IN NUMBER
37 -- x_return_status OUT VARCHAR2
38 -- x_error_message_code OUT VARCHAR2
39 --
40 --
41 -- History
42 --
43 -- 25-JUN-01 HSIU -Created
44 --
45 --
46
47
48 procedure Check_Create_Dependency_Ok
49 (
50 p_element_version_id_from IN NUMBER
51 ,p_element_version_id_to IN NUMBER
52 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
53 ,x_error_message_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
54 );
55
56
57 -- API name : Check_Create_Association_Ok
58 -- Type : Private Procedure
59 -- Pre-reqs : None
60 -- Return Value : N/A
61 -- Parameters
62 -- p_element_version_id_from IN NUMBER
63 -- p_element_version_id_to IN NUMBER
64 -- x_return_status OUT VARCHAR2
65 -- x_error_message_code OUT VARCHAR2
66 --
67 --
68 -- History
69 --
70 -- 25-JUN-01 HSIU -Created
71 --
72 --
73
74
75 procedure Check_Create_Association_Ok
76 (
77 p_element_version_id_from IN NUMBER
78 ,p_element_version_id_to IN NUMBER
79 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
80 ,x_error_message_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
81 );
82
83 -- API name : parent_LP_link_exists
84 -- Type : Private Function
85 -- Pre-reqs : None
86 -- Return Value : Y or N
87 -- Parameters
88 -- p_parent_project_id IN NUMBER
89 -- p_sub_project_id IN NUMBER
90 --
91 --
92 -- History
93 --
94 -- 05-DEC-03 Maansari -Created
95 --
96 -- Description
97 --
98 -- This fucntion returns 'Y' if there exists a Link from parent latest published version to the
99 -- subproject. This is used in view PA_STRUCTURES_LINKS_V to select working version if there is no
100 -- link from the parent latest published version to the subproject.
101 --
102 --
103
104 Function parent_LP_link_exists(
105 p_parent_project_id IN NUMBER
106 ,p_sub_project_id IN NUMBER
107 ) RETURN VARCHAR2;
108
109 -- API name : check_create_intra_dep_ok
110 -- Type : Private Check procedure
111 -- Pre-reqs : None
112 -- Return Value : Returns error status
113 -- Parameters
114 -- p_pre_project_id IN NUMBER
115 -- p_pre_task_ver_id IN NUMBER
116 -- p_project_id IN NUMBER
117 -- p_task_ver_id IN NUMBER
118 --
119 --
120 -- History
121 --
122 -- 19-DEC-03 Maansari -Created
123 --
124 -- Description
125 --
126 --
127 --
128
129 procedure check_create_intra_dep_ok(
130 p_pre_project_id IN NUMBER
131 ,p_pre_task_ver_id IN NUMBER
132 ,p_project_id IN NUMBER
133 ,p_task_ver_id IN NUMBER
134 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
135 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
136 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
137 );
138
139
140 -- API name : check_create_inter_dep_ok
141 -- Type : Private Check procedure
142 -- Pre-reqs : None
143 -- Return Value : Returns error status
144 -- Parameters
145 -- p_pre_project_id IN NUMBER
146 -- p_pre_task_ver_id IN NUMBER
147 -- p_project_id IN NUMBER
148 -- p_task_ver_id IN NUMBER
149 --
150 --
151 -- History
152 --
153 -- 19-DEC-03 Maansari -Created
154 --
155 -- Description
156 --
157 --
158 --
159
160 procedure check_create_inter_dep_ok(
161 p_pre_project_id IN NUMBER
162 ,p_pre_task_ver_id IN NUMBER
163 ,p_project_id IN NUMBER
164 ,p_task_ver_id IN NUMBER
165 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
166 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
167 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
168 );
169 --
170 --
171 -- History
172 --
173 -- 28-JAN-04 Mukka -Created
174 --
175 -- Description
176 --
177 --
178 --
179 FUNCTION DISPLAY_PREDECESSORS( p_element_version_id IN NUMBER)
180 RETURN VARCHAR2;
181
182 FUNCTION ChecK_dep_exists(p_element_version_id IN NUMBER)
183 RETURN VARCHAR2;
184
185 FUNCTION Is_Proj_Top_Program(p_project_id IN NUMBER)
186 RETURN VARCHAR2;
187
188 FUNCTION Is_Proj_Sub_Project(p_project_id IN NUMBER)
189 RETURN VARCHAR2;
190
191 FUNCTION DISABLE_SYS_PROG_OK(p_project_id NUMBER)
192 RETURN varchar2;
193
194 FUNCTION DISABLE_MULTI_PROG_OK(p_project_id NUMBER)
195 RETURN varchar2;
196
197 FUNCTION CREATE_SUB_PROJ_ASSO_OK(p_task_version_id NUMBER, p_project_id NUMBER,
198 p_structure_type VARCHAR2 := 'WORKPLAN')
199 RETURN VARCHAR2;
200
201 FUNCTION IS_AUTO_ROLLUP(p_project_id NUMBER)
202 RETURN VARCHAR2;
203
204 FUNCTION Get_Latest_Parent_Ver_obj_Id(p_structure_ver_id NUMBER, p_task_id NUMBER
205 , p_relationship_type VARCHAR2 := 'LW') -- Fix for Bug # 4471484.
206 RETURN NUMBER;
207
208 FUNCTION Get_Latest_Parent_Task_Ver_Id(p_structure_ver_id NUMBER, p_task_id NUMBER
209 , p_relationship_type VARCHAR2 := 'LW') -- Fix for Bug # 5189862.
210 RETURN NUMBER;
211
212 FUNCTION Get_Latest_Child_Ver_Id(p_task_ver_id NUMBER)
213 RETURN NUMBER;
214
215 --Bug 3629024 : The following two functions are MUTUALLY RECURSIVE
216 FUNCTION get_predecessors( p_src_task_ver_id IN NUMBER
217 ,p_orig_succ_task_ver_id IN NUMBER ) RETURN BOOLEAN;
218
219 FUNCTION get_parents_childs( p_src_task_ver_id IN NUMBER
220 ,p_orig_succ_task_ver_id IN NUMBER ) RETURN BOOLEAN;
221 --End : Bug 3629024
222
223 FUNCTION Check_link_exists(p_project_id number
224 ,p_link_type VARCHAR2 DEFAULT 'SHARED' --bug 4532826
225 ) return VARCHAR2;
226
227 FUNCTION Check_proj_currency_identical(p_src_project_id NUMBER
228 , p_dest_project_id NUMBER) return VARCHAR2;
229
230 FUNCTION check_dependencies_valid(p_new_parent_task_ver_id IN NUMBER
231 ,p_task_ver_id IN NUMBER) RETURN VARCHAR2;
232
233 -- Begin fix for Bug # 4266540.
234
235 FUNCTION check_task_has_sub_proj(p_project_id NUMBER
236 , p_task_id NUMBER
237 , p_task_version_id NUMBER := NULL)
238 return VARCHAR2;
239
240 -- END fix for Bug # 4266540.
241
242 -- Begin fix for Bug # 4411603.
243
244 function is_str_linked_to_working_ver
245 (p_project_id NUMBER
246 , p_structure_version_id NUMBER
247 , p_relationship_type VARCHAR2 := 'LW') return VARCHAR2;
248
249 -- End fix for Bug # 4411603.
250
251 --bug 4541039
252 FUNCTION Check_parent_project_Exists
253 (
254 p_project_id NUMBER,
255 p_structure_ver_id NUMBER
256 ,p_link_type VARCHAR2 default 'SHARED' --bug 4541039
257 )RETURN VARCHAR2;
258
259 --bug 4619824
260 FUNCTION Check_subproject_link_exists
261 (
262 p_project_id NUMBER
263 ,p_link_type VARCHAR2 default 'SHARED' --bug 4541039
264 )RETURN VARCHAR2;
265
266 end PA_RELATIONSHIP_UTILS;