[Home] [Help]
PACKAGE BODY: APPS.WIP_WDJ_DIAG_CORRUPT_OSP
Source
1 package body WIP_WDJ_DIAG_CORRUPT_OSP as
2 /* $Header: WIPDJ02B.pls 120.1 2008/05/01 04:06:03 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
36 -- accept input
37 if (ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs),'0123456789') is null ) then
38 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs);
39 WIP_DIAG_DISCRETE_LOT.corrupt_osp_txn_wdj(l_org_id, report, reportClob);
40
41 <<l_test_end>>
42 statusStr := 'SUCCESS';
43 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
44 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
45 else
46 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('<BR>Parameter input is required.');
47 if l_org_id is null then
48 fixInfo := 'Please enter the Org id for which output is desired.';
49 end if ;
50 isFatal := 'FALSE';
51 statusStr := 'FAILURE';
52 errStr := 'This test failed with : no/Incorrect input';
53
54 <<l_test_end>>
55 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
56 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
57
58 end if;
59
60
61 EXCEPTION
62 when others then
63 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
64 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
65 statusStr := 'FAILURE';
66 errStr := sqlerrm ||' occurred in script Exception handled';
67 fixInfo := 'Unexpected Exception in WIPDJOBB.pls';
68 isFatal := 'FALSE';
69 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
70 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
71
72
73 END runTest;
74
75 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
76 BEGIN
77 name := 'Invalid OSP txns';
78 END getComponentName;
79
80 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
81 BEGIN
82 descStr :='This health check diagnostic identifies potential data inconsistency in OSP transactions.<BR>'||
83 'Run this diagnostic when OSP Delivery does not charge OSP resource or Quantity on Operations '||
84 'are not in sync with move transactions. <BR>'||'Please see the diagnostic output for recommended'||
85 ' actions. <BR>'||'It is recommended to run this health check periodically.';
86
87 END getTestDesc;
88
89 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
90 BEGIN
91 name := 'Invalid OSP txns';
92 END getTestName;
93
94 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
95 tempDependencies JTF_DIAG_DEPENDTBL;
96
97 BEGIN
98 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
99 END getDependencies;
100
101 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
102 BEGIN
103 str := 'FALSE';
104 END isDependencyPipelined;
105
106
107 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
108 tempOutput JTF_DIAG_OUTPUTTBL;
109 BEGIN
110 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
111 outputValues := tempOutput;
112 EXCEPTION
113 when others then
114 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
115 END getOutputValues;
116
117
118 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
119 tempInput JTF_DIAG_INPUTTBL;
120 BEGIN
121
122 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
123 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
124 defaultInputValues := tempInput;
125
126 EXCEPTION
127 when others then
128 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
129 END getDefaultTestParams;
130
131 Function getTestMode return INTEGER IS
132 BEGIN
133 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
134
135 END getTestMode;
136
137 END;