[Home] [Help]
PACKAGE BODY: APPS.WIP_DAT_DIAG_PEND
Source
1 package body WIP_DAT_DIAG_PEND as
2 /* $Header: WIPDC05B.pls 120.1 2008/05/01 04:00:20 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 -- accept input
36 if (ltrim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs),'0123456789') is null) then
37 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs);
38 else
39 l_org_id := null;
40 end if;
41
42 if l_org_id is NULL then
43
44
45 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('<BR>Parameter input is required.');
46 statusStr := 'FAILURE';
47 errStr := 'This test failed with : no/incorrect input';
48 fixInfo := 'Please enter the Organization Id for which output is desired.';
49 isFatal := 'FALSE';
50
51
52 <<l_test_end>>
53 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
54 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
55
56
57 else
58
59 WIP_DIAG_DATA_COLL.pending_txns(l_org_id );
60
61 reportStr := '<BR>The output generated gives you the details regarding Pending Transactions';
62 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
63
64
65 <<l_test_end>>
66 statusStr := 'SUCCESS' ;
67 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
68 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
69 end if ;
70
71 EXCEPTION
72 when others then
73 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
74 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
75 statusStr := 'FAILURE';
76 errStr := sqlerrm ||' occurred in script Exception handled';
77 fixInfo := 'Unexpected Exception in WIPDC05B.pls';
78 isFatal := 'FALSE';
79 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
80 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
81
82
83 END runTest;
84
85 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
86 BEGIN
87 name := 'Pending Transactions';
88 END getComponentName;
89
90 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
91 BEGIN
92 descStr := 'This data collector retrieves all relevant details of pending WIP transactions.<BR>'||
93 'Run this data collector and upload the resulting output when opening a service request in this area.';
94 END getTestDesc;
95
96 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
97 BEGIN
98 name := 'Pending Txns';
99 END getTestName;
100
101 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
102 tempDependencies JTF_DIAG_DEPENDTBL;
103
104 BEGIN
105 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
106 END getDependencies;
107
108 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
109 BEGIN
110 str := 'FALSE';
111 END isDependencyPipelined;
112
113
114 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
115 tempOutput JTF_DIAG_OUTPUTTBL;
116 BEGIN
117 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
118 outputValues := tempOutput;
119 EXCEPTION
120 when others then
121 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
122 END getOutputValues;
123
124
125 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
126 tempInput JTF_DIAG_INPUTTBL;
127 BEGIN
128
129 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
130 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
131 defaultInputValues := tempInput;
132
133 EXCEPTION
134 when others then
135 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
136 END getDefaultTestParams;
137
138 Function getTestMode return INTEGER IS
139 BEGIN
140 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
141
142 END getTestMode;
143
144 END;