[Home] [Help]
PACKAGE BODY: APPS.WIP_DAT_DIAG_REP
Source
1 package body WIP_DAT_DIAG_REP as
2 /* $Header: WIPDC02B.pls 120.1 2008/05/01 03:56:38 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 l_line_id NUMBER;
30 l_rep_schedule_id NUMBER;
31 BEGIN
32
33 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
34 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36
37 -- accept input
38 if ((ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs),'0123456789') is null) and
39 (ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Assembly Id',inputs),'0123456789') is null) and
40 (ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Line Id',inputs),'0123456789') is null) and
41 (ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Repetitive Id',inputs),'0123456789')is null)) then
42
43 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs);
44 l_job_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Assembly Id',inputs);
45 l_line_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Line Id',inputs);
46 l_rep_schedule_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Repetitive Id',inputs);
47
48 else
49 l_rep_schedule_id := null;
50
51 end if;
52
53 if (l_rep_schedule_id is NULL or l_job_id is NULL or l_line_id is NULL) then
54
55 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('<BR>Parameter input is required.');
56 statusStr := 'FAILURE';
57 errStr := 'This test failed with : no/incorrect input';
58 if l_rep_schedule_id IS NULL then
59 fixInfo := 'Please select Repetitive Schedule for which output is desired.';
60 elsif l_job_id is NULL then
61 fixInfo := 'Please select Repetitive Assembly for which output is desired.';
62 elsif l_line_id IS NULL then
63 fixInfo := 'Please select Repetitive Line for which output is desired.';
64 end if ;
65 isFatal := 'FALSE';
66 <<l_test_end>>
67 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
68 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
69
70 else
71
72 WIP_DIAG_DATA_COLL.repetitive(l_job_id, l_line_id, l_rep_schedule_id);
73
74 reportStr := '<BR>The output generated gives you the details regarding a Repetitive Item';
75 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
76
77
78 <<l_test_end>>
79 statusStr := 'SUCCESS';
80 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
81 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
82 end if ;
83
84 EXCEPTION
85 when others then
86 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
87 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
88 statusStr := 'FAILURE';
89 errStr := sqlerrm ||' occurred in script Exception handled';
90 fixInfo := 'Unexpected Exception in WIPDC02B.pls';
91 isFatal := 'FALSE';
92 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
93 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
94
95
96 END runTest;
97
98 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
99 BEGIN
100 name := 'Repetitive';
101 END getComponentName;
102
103 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
104 BEGIN
105 descStr := 'This data collector retrieves all relevant details of a particular repetitive schedule.<BR>'||
106 'Run this data collector and upload the resulting output when opening a service request in this area.';
107
108 END getTestDesc;
109
110 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
111 BEGIN
112 name := 'Repetitive';
113 END getTestName;
114
115 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
116 tempDependencies JTF_DIAG_DEPENDTBL;
117
118 BEGIN
119 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
120 END getDependencies;
121
122 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
123 BEGIN
124 str := 'FALSE';
125 END isDependencyPipelined;
126
127
128 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
129 tempOutput JTF_DIAG_OUTPUTTBL;
130 BEGIN
131 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
132 outputValues := tempOutput;
133 EXCEPTION
134 when others then
135 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
136 END getOutputValues;
137
138
139 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
140 tempInput JTF_DIAG_INPUTTBL;
141 BEGIN
142
143 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
144 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
145 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Assembly Id','LOV-oracle.apps.wip.diag.lov.RepAssyLov');
146 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Line Id', 'LOV-oracle.apps.wip.diag.lov.LineLov');
147 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Repetitive Id', 'LOV-oracle.apps.wip.diag.lov.RepSchLov');
148 defaultInputValues := tempInput;
149
150 EXCEPTION
151 when others then
152 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
153 END getDefaultTestParams;
154
155 Function getTestMode return INTEGER IS
156 BEGIN
157 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
158
159 END getTestMode;
160
161 END;