1 package body WIP_WOL_DIAG_DUP_MAT as
2 /* $Header: WIPDW04B.pls 120.0.12000000.1 2007/07/10 11:02:35 mraman 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_item_id NUMBER;
27 l_org_id NUMBER;
28 BEGIN
29
30 WIP_DIAG_WOL_FLOW.Dup_mat_txn_mti(inputs,report,reportClob);
31
32 END runTest;
33
34 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
35 BEGIN
36 name := 'Duplicate Material Transaction(s)';
37 END getComponentName;
38
39 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
40 BEGIN
41 descStr := 'This health check diagnostic identifies potential data inconsistency in workorder less/flow transactions.<BR>' ||
42 'It fetches duplicate material transactions related to workorder less or flow schedules.<BR>'|| 'Please see the diagnostic output for'
43 ||' recommended actions.<BR> It is recommended to run this health check periodically.';
44 END getTestDesc;
45
46 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
47 BEGIN
48 name := 'Duplicate Material Txns';
49 END getTestName;
50
51 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
52 tempDependencies JTF_DIAG_DEPENDTBL;
53
54 BEGIN
55 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
56 END getDependencies;
57
58 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
59 BEGIN
60 str := 'FALSE';
61 END isDependencyPipelined;
62
63
64 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
65 tempOutput JTF_DIAG_OUTPUTTBL;
66 BEGIN
67 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
68 outputValues := tempOutput;
69 EXCEPTION
70 when others then
71 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
72 END getOutputValues;
73
74
75 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
76 tempInput JTF_DIAG_INPUTTBL;
77 BEGIN
78 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
79 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
80 defaultInputValues := tempInput;
81 EXCEPTION
82 when others then
83 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
84 END getDefaultTestParams;
85
86 Function getTestMode return INTEGER IS
87 BEGIN
88 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
89
90 END getTestMode;
91
92 END;