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