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