[Home] [Help]
PACKAGE BODY: APPS.WIP_DAT_DIAG_SETUP
Source
1 package body WIP_DAT_DIAG_SETUP as
2 /* $Header: WIPDC04B.pls 120.1 2008/05/01 03:59:08 shjindal noship $ */
3 PROCEDURE init is
4 BEGIN
5 null;
6 END init;
7
8 PROCEDURE cleanup IS
9 BEGIN
10 -- test writer could insert special cleanup code here
11 NULL;
12 END cleanup;
13
14 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
15 report OUT NOCOPY JTF_DIAG_REPORT,
16 reportClob OUT NOCOPY CLOB) IS
17 reportStr LONG; -- REPORT
18 sqltxt VARCHAR2(9999); -- SQL select statement
19 c_username VARCHAR2(50); -- accept input for username
20 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
21 errStr VARCHAR2(4000); -- error message
22 fixInfo VARCHAR2(4000); -- fix tip
23 isFatal VARCHAR2(50); -- TRUE or FALSE
24 dummy_num NUMBER;
25 row_limit NUMBER;
26 l_job_name VARCHAR2(200);
27 l_org_id NUMBER;
28 l_job_id NUMBER;
29 BEGIN
30
31 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
32 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
33 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
34
35 -- accept input
36 if( ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs),'0123456789') is null) then
37 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs);
38 else
39 l_org_id := null;
40 end if;
41
42 if l_org_id is NULL then
43
44
45 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('<BR>Parameter input is required.');
46 statusStr := 'FAILURE';
47 errStr := 'This test failed with : no/incorrect input';
48 fixInfo := 'Please enter the Organization Id for which output is desired.';
49 isFatal := 'FALSE';
50
51
52 <<l_test_end>>
53 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
54 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
55
56 else
57
58 WIP_DIAG_DATA_COLL.setup(l_org_id, report, reportClob);
59
60 reportStr := '<BR>The output generated gives you the details regarding a WIP Setup ';
61 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
62
63
64 <<l_test_end>>
65 statusStr := 'SUCCESS';
66 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
67 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
68 end if ;
69
70 EXCEPTION
71 when others then
72 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
73 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
74 statusStr := 'FAILURE';
75 errStr := sqlerrm ||' occurred in script Exception handled';
76 fixInfo := 'Unexpected Exception in WIPDC04B.pls';
77 isFatal := 'FALSE';
78 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
79 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
80
81
82 END runTest;
83
84 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
85 BEGIN
86 name := 'General';
87 END getComponentName;
88
89 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
90 BEGIN
91 descStr := 'This diagnostic test verifies and displays the setup of Work In Process <BR>' ;
92 descStr := descStr || 'Run this test when after performing changes to WIP setup' ;
93
94 END getTestDesc;
95
96 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
97 BEGIN
98 name := 'General';
99 END getTestName;
100
101 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
102 tempDependencies JTF_DIAG_DEPENDTBL;
103
104 BEGIN
105 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
106 END getDependencies;
107
108 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
109 BEGIN
110 str := 'FALSE';
111 END isDependencyPipelined;
112
113
114 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
115 tempOutput JTF_DIAG_OUTPUTTBL;
116 BEGIN
117 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
118 outputValues := tempOutput;
119 EXCEPTION
120 when others then
121 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
122 END getOutputValues;
123
124
125 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
126 tempInput JTF_DIAG_INPUTTBL;
127 BEGIN
128
129 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
130 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
131 defaultInputValues := tempInput;
132
133 EXCEPTION
134 when others then
135 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
136 END getDefaultTestParams;
137
138 Function getTestMode return INTEGER IS
139 BEGIN
140 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
141
142 END getTestMode;
143
144 END;