[Home] [Help]
PACKAGE BODY: APPS.PJI_PMV_DFLT_PARAMS
Source
1 PACKAGE BODY PJI_PMV_DFLT_PARAMS AS
2 /* $Header: PJIRX02B.pls 115.29 2004/06/04 12:34:49 aljain noship $ */
3
4 G_Default_Org_Dimension_Level VARCHAR2(150):='PJI_REP_DIM_2';
5 G_Org_Hierarchy_Name VARCHAR2(100):='ORGANIZATION^PJI_ORGANIZATIONS';
6 G_Default_Compare_To VARCHAR2(150):='TIME_COMPARISON_TYPE+YEARLY';
7 G_Default_Revenue_At_Risk_Only VARCHAR2(3) :='N';
8 G_Duration_Type VARCHAR2(150):='CUMULATIVE';
9 G_SQL_Error_Message VARCHAR2(2000);
10 G_As_Of_Date VARCHAR2(30):=to_char(SYSDATE,'DD-MON-YYYY');
11
12 ---*****************************************************************************
13 -- Project Default Parameter Values Started by Monika
14 -- ****************************************************************************
15
16 ---********************************************************************
17 --- Common Functions for all Reports
18 ---********************************************************************
19 ---********************************************************************
20 -- PJI_REP_DIM_2 (function 1: common for all )
21 ---********************************************************************
22 FUNCTION PJI_REP_DIM_2 return varchar2
23 IS
24 l_org_dimension_id VARCHAR2(150);
25 Begin
26 l_org_dimension_id :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Organization_ID;
27 return l_org_dimension_id;
28 END PJI_REP_DIM_2;
29
30
31 ---********************************************************************
32 -- AS_OF_DATE (function 2: common for all )
33 ---********************************************************************
34 FUNCTION AS_OF_DATE return varchar2
35 IS
36 l_As_Of_Date VARCHAR2(30);
37 Begin
38 l_As_Of_Date :=G_As_Of_Date;
39 return l_As_Of_Date;
40 END AS_OF_DATE;
41
42
43
44 ---*********************************************************************************************
45 -- Profitability Reports
46 ---*********************************************************************************************
47
48
49 ---******************************************************************************************************
50 -- TIME+FII_TIME_ENT_YEAR_FROM (function 3: common for all under profitability except PP5 and PP6 -else condition)
51 ---********************************************************************************************************
52 FUNCTION Profitability_PP_Time_Year return varchar2
53 IS
54 l_Period_ID VARCHAR2(150);
55 l_Period_ID_Value NUMBER;
56
57 Begin
58 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
59 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
60 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
61
62 IF l_period_id ='FII_TIME_ENT_YEAR' then
63 return TO_CHAR(l_Period_Id_Value);
64 ELSE
65 return null;
66 END IF;
67 END Profitability_PP_Time_Year;
68
69 ---*******************************************************************************************************
70 -- TIME+FII_TIME_ENT_QTR_FROM(function 4: common for all under profitability except PP5 and PP6 -else condition)
71 ---*******************************************************************************************************
72 FUNCTION Profitability_PP_Time_Qtr return varchar2
73 IS
74 l_Period_ID VARCHAR2(150);
75 l_Period_ID_Value NUMBER;
76
77 Begin
78 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
79 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
80 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
81
82 IF l_period_id ='FII_TIME_ENT_QTR' then
83 return TO_CHAR(l_Period_Id_Value);
84 ELSE
85 return null;
86 END IF;
87 END Profitability_PP_Time_Qtr;
88
89 ---************************************************************************************************************
90 --TIME+FII_TIME_ENT_PERIOD_FROM(function 5: common for all under profitability except PP5 and PP6 -else condition)
91 ---**************************************************************************************************************
92 FUNCTION Profitability_PP_Time_Period return varchar2
93 IS
94 l_Period_ID VARCHAR2(150);
95 l_Period_ID_Value NUMBER;
96
97 Begin
98 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
99 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
100 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
101
102 IF l_period_id ='FII_TIME_ENT_PERIOD' then
103 return TO_CHAR(l_Period_Id_Value);
104 ELSE
105 return null;
106 END IF;
107 END Profitability_PP_Time_Period;
108
109 ---*******************************************************************************************************
110 -- TIME+FII_TIME_WEEK_FROM(function 6: common for all under profitability except PP5 and PP6 -else condition)
111 ---********************************************************************************************************
112 FUNCTION Profitability_PP_Time_Week return varchar2
113 IS
114 l_Period_ID VARCHAR2(150);
115 l_Period_ID_Value NUMBER;
116
117 Begin
118 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
119 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
120 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
121
122 IF l_period_id = 'FII_TIME_WEEK' then
123 return TO_CHAR(l_Period_Id_Value);
124 ELSE
125 return null;
126 END IF;
127 END Profitability_PP_Time_Week;
128
129
130 ---***********************************************************************************************************
131 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 7: for PP5 and PP6 under profitability -if condition )
132 ---***********************************************************************************************************
133 FUNCTION Profitability_PP56_Time return varchar2
134 IS
135 l_Ent_Per_ID_Value NUMBER;
136 Begin
137 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
138 l_Ent_Per_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Ent_Period_ID_Value;
139 return TO_CHAR(l_Ent_Per_ID_Value);
140 END Profitability_PP56_Time;
141
142
143 --********************************************************************
144 -- YEARLY(function 8: For PP1 and PP2 under profitability)
145 ---********************************************************************
146 FUNCTION Profitability_PP12_Yearly return varchar2
147 IS
148 l_Default_Compare_To VARCHAR2(150);
149 Begin
150 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
151 l_Default_Compare_To :=G_Default_Compare_To;
152 return l_Default_Compare_To;
153 END Profitability_PP12_Yearly;
154
155
156 ---********************************************************************
157 -- PJI_REP_DIM_27(function 9: common for all under profitability)
158 ---********************************************************************
159 FUNCTION Profitability_PP_PjiRepDim27 return varchar2
160 IS
161 l_Currency_ID VARCHAR2(150);
162 Begin
163 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Profitability');
164 l_currency_id :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Currency_ID;
165 return l_Currency_ID;
166 END Profitability_PP_PjiRepDim27 ;
167
168
169 ---*********************************************************************************************
170 -- Availablity Reports
171 ---*********************************************************************************************
172
173 ---******************************************************************************************************
174 -- TIME+FII_TIME_ENT_YEAR_FROM (function 10: common for RA1,RA3,RA5)
175 ---********************************************************************************************************
176 FUNCTION Availability_RA_Time_Year return varchar2
177 IS
178 l_Period_ID VARCHAR2(150);
179 l_Period_ID_Value NUMBER;
180
181 Begin
182 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
183 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
184 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
185
186 IF l_period_id ='FII_TIME_ENT_YEAR' then
187 return TO_CHAR(l_Period_Id_Value);
188 ELSE
189 return null;
190 END IF;
191 END Availability_RA_Time_Year;
195 ---*******************************************************************************************************
192
193 ---*******************************************************************************************************
194 -- TIME+FII_TIME_ENT_QTR_FROM(function 11: common for RA1,RA3,RA5)
196 FUNCTION Availability_RA_Time_Qtr return varchar2
197 IS
198 l_Period_ID VARCHAR2(150);
199 l_Period_ID_Value NUMBER;
200
201 Begin
202 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
203 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
204 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
205
206 IF l_period_id ='FII_TIME_ENT_QTR' then
207 return TO_CHAR(l_Period_Id_Value);
208 ELSE
209 return null;
210 END IF;
211 END Availability_RA_Time_Qtr;
212
213 ---************************************************************************************************************
214 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 12: common for RA1,RA3,RA5)
215 ---**************************************************************************************************************
216 FUNCTION Availability_RA_Time_Period return varchar2
217 IS
218 l_Period_ID VARCHAR2(150);
219 l_Period_ID_Value NUMBER;
220
221 Begin
222 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
223 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
224 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
225
226 IF l_period_id ='FII_TIME_ENT_PERIOD' then
227 return TO_CHAR(l_Period_Id_Value);
228 ELSE
229 return null;
230 END IF;
231 END Availability_RA_Time_Period;
232
233 ---*******************************************************************************************************
234 -- TIME+FII_TIME_WEEK_FROM(function 13: common for RA1,RA3,RA5)
235 ---********************************************************************************************************
236 FUNCTION Availability_RA_Time_Week return varchar2
237 IS
238 l_Period_ID VARCHAR2(150);
239 l_Period_ID_Value NUMBER;
240
241 Begin
242 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
243 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
244 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
245
246 IF l_period_id = 'FII_TIME_WEEK' then
247 return TO_CHAR(l_Period_Id_Value);
248 ELSE
249 return null;
250 END IF;
251 END Availability_RA_Time_Week;
252
253
254 ---********************************************************************
255 -- PJI_REP_DIM_28(function 14: common for all under availability)
256 ---********************************************************************
257 FUNCTION Availability_RA_PjiRepDim28 return varchar2
258 IS
259 l_Availability_Threshold VARCHAR2(150);
260 Begin
261 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
262 l_Availability_Threshold:=PJI_PMV_DFLT_PARAMS_PVT.Derive_Avail_Threshold;
263 return l_Availability_Threshold;
264 END Availability_RA_PjiRepDim28 ;
265
266
267 ---********************************************************************
268 -- PJI_REP_DIM_29(function 15: RA3 for availability)
269 ---********************************************************************
270 FUNCTION Availability_RA_PjiRepDim29 return varchar2
271 IS
272 l_Duration_Type VARCHAR2(150);
273 Begin
274 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
275 l_Duration_Type :=G_Duration_Type;
276 return l_Duration_Type;
277 END Availability_RA_PjiRepDim29 ;
278
279 ---********************************************************************
280 --FII_TIME_WEEK_FROM(function 16: RA4 for availability)
281 ---********************************************************************
282 FUNCTION Availability_RA_FiiTimeWeek return varchar2
283 IS
284 l_EntWeek_ID_Value NUMBER;
285 Begin
286 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Availability');
287 l_EntWeek_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Week_ID_Value;
288 return TO_CHAR(l_EntWeek_ID_Value);
289 END Availability_RA_FiiTimeWeek ;
290
291 --************************************************************************************************
292 -- Cost
293 --*************************************************************************************************
294 ---*****************************************************************************************************
295 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 17: for PP7 and PP8 under Cost -if condition )
296 ---*******************************************************************************************************
297 FUNCTION Cost_PP78_Time return varchar2
298 IS
299 l_Ent_Per_ID_Value NUMBER;
300 Begin
301 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
302 l_Ent_Per_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Ent_Period_ID_Value;
303 return TO_CHAR(l_Ent_Per_ID_Value);
304 END Cost_PP78_Time ;
305
306 ---******************************************************************************************************
307 -- TIME+FII_TIME_ENT_YEAR_FROM (function 18: common for all except PP7 and PP8 -else)
308 ---********************************************************************************************************
309 FUNCTION Cost_PP_Time_Year return varchar2
310 IS
311 l_Period_ID VARCHAR2(150);
312 l_Period_ID_Value NUMBER;
313
314 Begin
315 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
316 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
317 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
318
319 IF l_period_id ='FII_TIME_ENT_YEAR' then
320 return TO_CHAR(l_Period_Id_Value);
321 ELSE
322 return null;
323 END IF;
324 END Cost_PP_Time_Year;
325
326 ---*******************************************************************************************************
327 -- TIME+FII_TIME_ENT_QTR_FROM(function 19: common for all except PP7 and PP8 -else)
328 ---*******************************************************************************************************
329 FUNCTION Cost_PP_Time_Qtr return varchar2
330 IS
331 l_Period_ID VARCHAR2(150);
332 l_Period_ID_Value NUMBER;
333
334 Begin
335 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
336 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
337 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
338
339 IF l_period_id ='FII_TIME_ENT_QTR' then
340 return TO_CHAR(l_Period_Id_Value);
341 ELSE
342 return null;
343 END IF;
344 END Cost_PP_Time_Qtr;
345
346 ---************************************************************************************************************
347 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 20: common for all except PP7 and PP8 -else)
348 ---**************************************************************************************************************
349 FUNCTION Cost_PP_Time_Period return varchar2
350 IS
351 l_Period_ID VARCHAR2(150);
352 l_Period_ID_Value NUMBER;
353
354 Begin
355 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
356 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
357 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
358
359 IF l_period_id ='FII_TIME_ENT_PERIOD' then
360 return TO_CHAR(l_Period_Id_Value);
361 ELSE
362 return null;
363 END IF;
364 END Cost_PP_Time_Period;
365
369 FUNCTION Cost_PP_Time_Week return varchar2
366 ---*******************************************************************************************************
367 -- TIME+FII_TIME_WEEK_FROM(function 21: common for all except PP7 and PP8 -else)
368 ---********************************************************************************************************
370 IS
371 l_Period_ID VARCHAR2(150);
372 l_Period_ID_Value NUMBER;
373
374 Begin
375 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
376 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
377 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
378
379 IF l_period_id = 'FII_TIME_WEEK' then
380 return TO_CHAR(l_Period_Id_Value);
381 ELSE
382 return null;
383 END IF;
384 END Cost_PP_Time_Week;
385
386 --********************************************************************
387 -- YEARLY(function 22: For PP4,PC6 and PC10 under Cost)
388 ---********************************************************************
389 FUNCTION Cost_P4610_Yearly return varchar2
390 IS
391 l_Default_Compare_To VARCHAR2(150);
392 Begin
393 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
394 l_Default_Compare_To :=G_Default_Compare_To;
395 return l_Default_Compare_To;
396 END Cost_P4610_Yearly;
397
398 ---********************************************************************
399 -- PJI_REP_DIM_27(function 23: common for all under Cost)
400 ---********************************************************************
401 FUNCTION Cost_PP_PjiRepDim27 return varchar2
402 IS
403 l_Currency_ID VARCHAR2(150);
404 Begin
405 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Cost');
406 l_currency_id :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Currency_ID;
407 return l_Currency_ID;
408 END Cost_PP_PjiRepDim27 ;
409 --*************************************************************************************
410 -- Bookings_Backlog
411 --*****************************************************************************************
412 ---*********************************************************************************************************************************
413 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 24: for PB2,PB02 and PB03 under Bookings_Backlog -if condition )
414 ---*********************************************************************************************************************************
415 FUNCTION Bookings_Backlog20203_Time return varchar2
416 IS
417 l_Ent_Per_ID_Value NUMBER;
418 Begin
419 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
420 l_Ent_Per_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Ent_Period_ID_Value;
421 return TO_CHAR(l_Ent_Per_ID_Value);
422 END Bookings_Backlog20203_Time ;
423
424 ---******************************************************************************************************
425 -- TIME+FII_TIME_ENT_YEAR_FROM (function 25: common for all except PB2,PB02 and PB03 -else)
426 ---********************************************************************************************************
427 FUNCTION Bookings_Backlog_Time_Year return varchar2
428 IS
429 l_Period_ID VARCHAR2(150);
430 l_Period_ID_Value NUMBER;
431
432 Begin
433 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
434 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
435 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
436
437 IF l_period_id ='FII_TIME_ENT_YEAR' then
438 return TO_CHAR(l_Period_Id_Value);
439 ELSE
440 return null;
444 ---*******************************************************************************************************
441 END IF;
442 END Bookings_Backlog_Time_Year;
443
445 -- TIME+FII_TIME_ENT_QTR_FROM(function 26: common for all except PB2,PB02 and PB03 -else)
446 ---*******************************************************************************************************
447 FUNCTION Bookings_Backlog_Time_Qtr return varchar2
448 IS
449 l_Period_ID VARCHAR2(150);
450 l_Period_ID_Value NUMBER;
451
452 Begin
453 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
454 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
455 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
456
457 IF l_period_id ='FII_TIME_ENT_QTR' then
458 return TO_CHAR(l_Period_Id_Value);
459 ELSE
460 return null;
461 END IF;
462 END Bookings_Backlog_Time_Qtr;
463
464 ---************************************************************************************************************
465 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 27: common for all except PB2,PB02 and PB03 -else)
466 ---**************************************************************************************************************
467 FUNCTION Bookings_Backlog_Time_Period return varchar2
468 IS
469 l_Period_ID VARCHAR2(150);
470 l_Period_ID_Value NUMBER;
471
472 Begin
473 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
474 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
475 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
476
477 IF l_period_id ='FII_TIME_ENT_PERIOD' then
478 return TO_CHAR(l_Period_Id_Value);
479 ELSE
480 return null;
481 END IF;
482 END Bookings_Backlog_Time_Period;
483
484 ---*******************************************************************************************************
485 -- TIME+FII_TIME_WEEK_FROM(function 28: common for all except PB2,PB02 and PB03 -else)
486 ---********************************************************************************************************
487 FUNCTION Bookings_Backlog_Time_Week return varchar2
488 IS
489 l_Period_ID VARCHAR2(150);
490 l_Period_ID_Value NUMBER;
491
492 Begin
493 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
494 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
495 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
496
497 IF l_period_id = 'FII_TIME_WEEK' then
498 return TO_CHAR(l_Period_Id_Value);
499 ELSE
500 return null;
501 END IF;
502 END Bookings_Backlog_Time_Week;
503
504 ---********************************************************************************
505 -- PJI_REP_DIM_27(function 29: common for all under Bookings Backlog)
506 ---********************************************************************************
507 FUNCTION Bookings_Backlog_PjiRepDim27 return varchar2
508 IS
509 l_Currency_ID VARCHAR2(150);
510 Begin
511 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
512 l_currency_id :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Currency_ID;
513 return l_Currency_ID;
514 END Bookings_Backlog_PjiRepDim27 ;
515
516 ---********************************************************************************
517 -- PJI_REP_DIM_33(function 30: for PBB2 under Bookings Backlog)
518 ---********************************************************************************
519 FUNCTION Bookings_BacklogBB2_Dim33 return varchar2
520 IS
521 l_Revenue_At_Risk_Only VARCHAR2(150);
522 Begin
523 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
524 l_Revenue_At_Risk_Only :=G_Default_Revenue_At_Risk_Only;
525 return l_Revenue_At_Risk_Only;
526 END Bookings_BacklogBB2_Dim33 ;
527
528 --********************************************************************
529 -- YEARLY(function 31: PBB1 under Bookings Backlog)
530 ---********************************************************************
531 FUNCTION Bookings_BacklogBB1_Yearly return varchar2
532 IS
533 l_Default_Compare_To VARCHAR2(150);
534 Begin
535 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Project Bookings and Backlog');
536 l_Default_Compare_To :=G_Default_Compare_To;
537 return l_Default_Compare_To;
538 END Bookings_BacklogBB1_Yearly;
539
540 --***********************************************************************
541 -- Default Utilization
545 -- YEARLY(function 32: for UAP1 and U1 under Utilization)
542 --************************************************************************
543
544 --********************************************************************
546 ---********************************************************************
547 FUNCTION Utilization_UAP1U1_Yearly return varchar2
548 IS
549 l_Default_Compare_To VARCHAR2(150);
550 Begin
551 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
552 l_Default_Compare_To :=G_Default_Compare_To;
553 return l_Default_Compare_To;
554 END Utilization_UAP1U1_Yearly;
555
556 ---*********************************************************************************************************************************
557 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 33: for U2 under Utilization -if condition )
558 ---*********************************************************************************************************************************
559 FUNCTION Utilization_U2_Time return varchar2
560 IS
561 l_Ent_Per_ID_Value NUMBER;
562 Begin
563 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
564 l_Ent_Per_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Ent_Period_ID_Value;
565 return TO_CHAR(l_Ent_Per_ID_Value);
566 END Utilization_U2_Time ;
567
568 ---******************************************************************************************************
569 -- TIME+FII_TIME_ENT_YEAR_FROM (function 34: common for all except U2 -else)
570 ---********************************************************************************************************
571 FUNCTION Utilization_Time_Year return varchar2
572 IS
573 l_Period_ID VARCHAR2(150);
574 l_Period_ID_Value NUMBER;
575
576 Begin
577 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
578 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
579 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
580
581 IF l_period_id ='FII_TIME_ENT_YEAR' then
582 return TO_CHAR(l_Period_Id_Value);
583 ELSE
584 return null;
585 END IF;
586 END Utilization_Time_Year;
587
588 ---*******************************************************************************************************
589 -- TIME+FII_TIME_ENT_QTR_FROM(function 35: common for all except U2 -else)
590 ---*******************************************************************************************************
591 FUNCTION Utilization_Time_Qtr return varchar2
592 IS
593 l_Period_ID VARCHAR2(150);
594 l_Period_ID_Value NUMBER;
595
596 Begin
597 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
598 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
599 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
600
601 IF l_period_id ='FII_TIME_ENT_QTR' then
602 return TO_CHAR(l_Period_Id_Value);
603 ELSE
604 return null;
605 END IF;
606 END Utilization_Time_Qtr;
607
608 ---************************************************************************************************************
609 -- TIME+FII_TIME_ENT_PERIOD_FROM(function 36: common for all except U2 -else)
610 ---**************************************************************************************************************
611 FUNCTION Utilization_Time_Period return varchar2
612 IS
613 l_Period_ID VARCHAR2(150);
614 l_Period_ID_Value NUMBER;
615
616 Begin
617 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
618 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
619 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
620
621 IF l_period_id ='FII_TIME_ENT_PERIOD' then
622 return TO_CHAR(l_Period_Id_Value);
623 ELSE
624 return null;
625 END IF;
626 END Utilization_Time_Period;
627
628 ---*******************************************************************************************************
629 -- TIME+FII_TIME_WEEK_FROM(function 37: common for all except U2 -else)
630 ---********************************************************************************************************
631 FUNCTION Utilization_Time_Week return varchar2
632 IS
633 l_Period_ID VARCHAR2(150);
634 l_Period_ID_Value NUMBER;
635
636 Begin
637 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
638 l_Period_ID :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID;
639 l_Period_ID_Value :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Period_ID_Value;
640
641 IF l_period_id = 'FII_TIME_WEEK' then
642 return TO_CHAR(l_Period_Id_Value);
643 ELSE
644 return null;
645 END IF;
649 -- PJI_REP_DIM_27(function 38: common for all under Utilization)
646 END Utilization_Time_Week;
647
648 ---********************************************************************
650 ---********************************************************************
651 FUNCTION Utilization_PjiRepDim27 return varchar2
652 IS
653 l_Currency_ID VARCHAR2(150);
654 Begin
655 PJI_PMV_DFLT_PARAMS_PVT.InitParameters ('Resource Utilization');
656 l_currency_id :=PJI_PMV_DFLT_PARAMS_PVT.Derive_Currency_ID;
657 return l_Currency_ID;
658 END Utilization_PjiRepDim27 ;
659
660
661
662
663 ---********************************************************************
664 -- Project Default Parameter Values Ended by Monika
665 -- ********************************************************************
666
667 -- *****************************************
668 -- Package Initialization Code
669 -- *****************************************
670 BEGIN
671 PJI_PMV_DFLT_PARAMS_PVT.InitEnvironment;
672 EXCEPTION
673 WHEN OTHERS THEN
674 RAISE;
675 END PJI_PMV_DFLT_PARAMS;
676