1 package body WIP_WDJ_DIAG_UNCOSTED_MAT as
2 /* $Header: WIPDJ01B.pls 120.1 2008/05/01 04:04:51 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
40 WIP_DIAG_DISCRETE_LOT.Uncosted_mat_txn_wdj(l_org_id, report, reportClob);
41
42 <<l_test_end>>
43 statusStr := 'SUCCESS';
44 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
45 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
46 else
47 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('<BR>Parameter input is required.');
48 if l_org_id is null then
49 fixInfo := 'Please enter the Org Id for which output is desired.';
50 end if ;
51 isFatal := 'FALSE';
52 statusStr := 'FAILURE';
53 errStr := 'This test failed with : no/Incorrect input';
54
55 <<l_test_end>>
56 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
57 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
58 end if ;
59
60 EXCEPTION
61 when others then
62 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
63 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
64 statusStr := 'FAILURE';
65 errStr := sqlerrm ||' occurred in script Exception handled';
66 fixInfo := 'Unexpected Exception in WIPDJOBB.pls';
67 isFatal := 'FALSE';
68 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
69 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
70
71
72 END runTest;
73
74 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
75 BEGIN
76 name := 'Uncosted Material Transactions';
77 END getComponentName;
78
79 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
80 BEGIN
81 descStr := 'This health check diagnostic identifies potential data inconsistency in WIP Material transactions.<BR>'||
82 'Run this diagnostic when WIP material transactions related to Discrete/lot based jobs do not get '||
83 'costed or error out during costing.<BR>'||' Please see the diagnostic output for recommended actions.<BR>'||
84 'It is recommended to run this health check before period close.';
85 END getTestDesc;
86
87 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
88 BEGIN
89 name := 'Uncosted Material Txns';
90 END getTestName;
91
92 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
93 tempDependencies JTF_DIAG_DEPENDTBL;
94
95 BEGIN
96 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
97 END getDependencies;
98
99 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
100 BEGIN
101 str := 'FALSE';
102 END isDependencyPipelined;
103
104
105 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
106 tempOutput JTF_DIAG_OUTPUTTBL;
107 BEGIN
108 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
109 outputValues := tempOutput;
110 EXCEPTION
111 when others then
112 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
113 END getOutputValues;
114
115
116 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
117 tempInput JTF_DIAG_INPUTTBL;
118 BEGIN
119
120 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
121 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
122 defaultInputValues := tempInput;
123
124 EXCEPTION
125 when others then
126 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
127 END getDefaultTestParams;
128
129 Function getTestMode return INTEGER IS
130 BEGIN
131 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
132
133 END getTestMode;
134
135 END;