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