1 package body WIP_REP_DIAG_UNCOSTED_MAT as
2 /* $Header: WIPDR01B.pls 120.0.12000000.1 2007/07/10 10:15:04 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 BEGIN
18 WIP_DIAG_REPETITIVE.Uncosted_mat_txn_rep(inputs,
19 report,
20 reportClob);
21 END runTest;
22
23 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
24 BEGIN
25 name := 'Txns Health Check - Repetitive';
26 END getComponentName;
27
28 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
29 BEGIN
30 descStr := 'This health check diagnostic identifies potential data inconsistency in material allocations related to repetitive ' ||
31 'schedules. <BR> Run this diagnostic when material transactions related to repetitive schedules fail during costing. <BR>' ||
32 'Please see the diagnostic output for recommended actions.<BR>' || 'It is recommended to run this health check before period close.';
33 END getTestDesc;
34
35 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
36 BEGIN
37 name := 'Uncosted Material Txns';
38 END getTestName;
39
40 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
41 tempDependencies JTF_DIAG_DEPENDTBL;
42
43 BEGIN
44 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
45 END getDependencies;
46
47 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
48 BEGIN
49 str := 'FALSE';
50 END isDependencyPipelined;
51
52
53 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
54 tempOutput JTF_DIAG_OUTPUTTBL;
55 BEGIN
56 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
57 outputValues := tempOutput;
58 EXCEPTION
59 when others then
60 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
61 END getOutputValues;
62
63
64 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
65 tempInput JTF_DIAG_INPUTTBL;
66 BEGIN
67 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
68 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
69 defaultInputValues := tempInput;
70 EXCEPTION
71 when others then
72 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
73 END getDefaultTestParams;
74
75 Function getTestMode return INTEGER IS
76 BEGIN
77 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
78
79 END getTestMode;
80
81 END;