PACKAGE BODY: APPS.PJI_PORTAL_DFLT_PARAMS

Source

1 PACKAGE BODY PJI_PORTAL_DFLT_PARAMS AS
2 /* $Header: PJIRX06B.pls 120.1 2005/12/22 14:36:34 appldev noship $ */
3 
4 FUNCTION get_dbi_params (p_Report_Type VARCHAR2 DEFAULT 'FM' ) RETURN VARCHAR2 IS
5 l_Org_ID           VARCHAR2(30);
6 l_Ent_Quarter_ID_Value NUMBER;
7 
8 BEGIN
9    l_Org_ID:=PJI_PMV_DFLT_PARAMS_PVT.Derive_Organization_ID;
10    l_Ent_Quarter_ID_Value:=PJI_PMV_DFLT_PARAMS_PVT.Derive_Ent_Quarter_ID_Value;
11 
12    IF p_Report_Type = 'FM' THEN
13       RETURN
14                  '&'||'YEARLY=TIME_COMPARISON_TYPE+YEARLY'||
15                  '&'||'PJI_REP_DIM_2='||l_Org_ID||
16                  '&'||'TIME+FII_TIME_ENT_QTR_FROM='||TO_CHAR(l_Ent_Quarter_ID_Value)||
17                  '&'||'PJI_REP_DIM_27=FII_GLOBAL1';
18    ELSE
19       RETURN
20                  '&'||'YEARLY=TIME_COMPARISON_TYPE+YEARLY'||
21                  '&'||'PJI_REP_DIM_2='||l_Org_ID||
22                  '&'||'TIME+FII_TIME_ENT_QTR_FROM='||TO_CHAR(l_Ent_Quarter_ID_Value);
23    END IF;
24 EXCEPTION
25    WHEN OTHERS THEN
26         RAISE ;
27 END get_dbi_params;
28 
29 FUNCTION get_dbi_organization RETURN VARCHAR2 IS
30 l_Org_ID           VARCHAR2(30);
31 
32 BEGIN
33    l_Org_ID:=PJI_PMV_DFLT_PARAMS_PVT.Derive_Organization_ID;
34      RETURN l_Org_ID;
35 EXCEPTION
36    WHEN OTHERS THEN
37         RAISE ;
38 
39 END get_dbi_organization;
40 
41 
42 -- *****************************************
43 --  Package Initialization Code
44 -- *****************************************
45 BEGIN
46 	PJI_PMV_DFLT_PARAMS_PVT.InitEnvironment;
47 EXCEPTION
48 	WHEN OTHERS THEN
49 		RAISE;
50 END PJI_PORTAL_DFLT_PARAMS;