1 package body WIP_WOL_DIAG_PENDING_RES as
2 /* $Header: WIPDW02B.pls 120.1 2007/12/18 15:37:12 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_item_id NUMBER;
27 l_org_id NUMBER;
28 BEGIN
29
30 WIP_DIAG_WOL_FLOW.Pending_res_txn_wol(inputs,report,reportClob);
31
32 END runTest;
33
34 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
35 BEGIN
36 name := 'Pending resource transactions.';
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 'Run this diagnostic when WIP resource transactions related to workorder less or flow schedules do not get costed or error out during'
43 || ' costing.<BR> Please see the diagnostic output for recommended actions.<BR>It is recommended to run this health check before period close.';
44 END getTestDesc;
45
46 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
47 BEGIN
48 name := 'Pending resource 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;