[Home] [Help]
PACKAGE BODY: APPS.BSC_OBJECTIVE_METADATA_SETUP
Source
1 PACKAGE BODY BSC_OBJECTIVE_METADATA_SETUP AS
2 /* $Header: BSCOBMDB.pls 120.1.12000000.2 2007/08/09 12:34:07 akoduri noship $ */
3 /*=======================================================================+
4 | Copyright (c) 1997 Oracle Corporation Redwood Shores, California, USA|
5 | All rights reserved. |
6 +=======================================================================+
7 | FILENAME |
8 | BSCOBMDB.pls |
9 | |
10 | Creation Date: |
11 | August 07, 2007 |
12 | |
13 | Creator: |
14 | Ajitha Koduri |
15 | |
16 | Description: |
17 | Public version. |
18 | This package contains all the APIs related to diagnostics of|
19 | objective report |
20 | |
21 | History: |
22 | 07-AUG-2007 akoduri Bug 6083208 Diagnostics for Objectives |
23 *=======================================================================*/
24
25
26 /************************************************************************************
27 -- API name : get_message_name
28 -- Type : Public
29 -- Function :
30 --
31 ************************************************************************************/
32
33 --FUNCTION get_message_name(message_name VARCHAR2) RETURN VARCHAR2;
34
35 /************************************************************************************
36 -- API name : init
37 -- Type : Public
38 -- Function :
39 --
40 ************************************************************************************/
41 PROCEDURE init IS
42 BEGIN
43 -- test writer could insert special setup code here
44 NULL;
45 END init;
46 /************************************************************************************
47 -- API name : cleanup
48 -- Type : Public
49 -- Function :
50 --
51 ************************************************************************************/
52 PROCEDURE cleanup IS
53 BEGIN
54 -- test writer could insert special cleanup code here
55 NULL;
56 END cleanup;
57
58 /************************************************************************************
59 -- API name : runtest
60 -- Type : Public
61 -- Function :
62 --
63 ************************************************************************************/
64 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
65 report OUT NOCOPY JTF_DIAG_REPORT,
66 reportClob OUT NOCOPY CLOB) IS
67 l_kpi_Id bsc_kpis_vl.indicator%TYPE;
68 l_Is_AG_Report BOOLEAN := FALSE;
69 statusStr VARCHAR2(50);
70 errStr VARCHAR2(4000);
71 fixInfo VARCHAR2(4000);
72 isFatal VARCHAR2(50);
73 l_Num_Rows NUMBER := 0;
74 l_Where_Clause VARCHAR2(1000);
75 l_patch_number NUMBER;
76 BEGIN
77 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
78 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
79 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
80 l_kpi_Id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue(get_message_name('BSC_OBJECTIVE'),inputs);
81 IF l_kpi_Id IS NULL OR l_kpi_Id = '' THEN
82 statusStr := 'FAILURE';
83 errStr := get_message_name('BSC_EMPTY_OBJ_ID');
84 fixInfo := get_message_name('BSC_SELECT_VALID_OBJECTIVE');
85 JTF_DIAGNOSTIC_COREAPI.BRPrint;
86 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(fixInfo);
87 isFatal := 'FALSE';
88 ELSE
89 JTF_DIAGNOSTIC_COREAPI.BRPrint;
90 l_Where_Clause := ' WHERE indicator ='|| l_kpi_Id;
91 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpis_vl','BSC_KPIS_VL', l_Where_Clause);
92 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_analysis_measures_vl','BSC_KPI_ANALYSIS_MEASURES_VL', l_Where_Clause);
93 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_analysis_groups','BSC_KPI_ANALYSIS_GROUPS', l_Where_Clause);
94 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_analysis_options_vl','BSC_KPI_ANALYSIS_OPTIONS_VL', l_Where_Clause);
95 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_dim_levels_vl','BSC_KPI_DIM_LEVELS_VL', l_Where_Clause);
96 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_dim_level_properties','BSC_KPI_DIM_LEVEL_PROPERTIES', l_Where_Clause);
97 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_periodicities','BSC_KPI_PERIODICITIES', l_Where_Clause);
98 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_calculations','BSC_KPI_CALCULATIONS', l_Where_Clause);
99
100 SELECT
101 TO_NUMBER(REPLACE(property_value,'.','')) patch_number
102 INTO
103 l_patch_number
104 FROM
105 bsc_sys_init
106 WHERE
107 property_code = 'PATCH_NUMBER';
108
109 IF l_patch_number >= 603 THEN
110 l_Num_Rows := JTF_DIAGNOSTIC_COREAPI.Display_Table('bsc_kpi_measure_props','BSC_KPI_MEASURE_PROPS', l_Where_Clause);
111 END IF;
112 statusStr := 'SUCCESS';
113 END IF;
114 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
115 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
116 END runTest;
117
118 /************************************************************************************
119 -- API name : runtest
120 -- Type : Public
121 -- Function :
122 --
123 ************************************************************************************/
124 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
125 BEGIN
126 name := get_message_name('BSC_PMD_MODULE');
127 END getComponentName;
128
129 /************************************************************************************
130 -- API name : getTestDesc
131 -- Type : Public
132 -- Function :
133 --
134 ************************************************************************************/
135 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
136 BEGIN
137 descStr := get_message_name('BSC_PRINT_OBJ_INFO');
138 END getTestDesc;
139
140 /************************************************************************************
141 -- API name : getTestName
142 -- Type : Public
143 -- Function :
144 --
145 ************************************************************************************/
146 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
147 BEGIN
148 name := get_message_name('BSC_OBJECTIVE_DIAG');
149 END getTestName;
150
151 /************************************************************************************
152 -- API name : getDefaultTestParams
153 -- Type : Public
154 -- Function :
155 --
156 ************************************************************************************/
157 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
158 tempInput JTF_DIAG_INPUTTBL;
159 BEGIN
160 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
161 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,get_message_name('BSC_OBJECTIVE'),'LOV-oracle.apps.bsc.diag.lov.ObjectiveLOV');
162 defaultInputValues := tempInput;
163 EXCEPTION
164 WHEN OTHERS THEN
165 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
166 END getDefaultTestParams;
167
168 /************************************************************************************
169 -- API name : getTestMode
170 -- Type : Public
171 -- Function :
172 --
173 ************************************************************************************/
174
175 FUNCTION getTestMode RETURN INTEGER IS
176 BEGIN
177 RETURN JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
178 END;
179
180 /************************************************************************************
181 -- API name : get_message_name
182 -- Type : Public
183 -- Function :
184 --
185 ************************************************************************************/
186
187 FUNCTION get_message_name(message_name VARCHAR2) RETURN VARCHAR2 IS
188 BEGIN
189 RETURN FND_MESSAGE.get_string('BSC',message_name);
190 END;
191
192 END BSC_OBJECTIVE_METADATA_SETUP;