[Home] [Help]
PACKAGE BODY: APPS.INV_DIAG_RCV_IPROC
Source
1 PACKAGE BODY INV_DIAG_RCV_IPROC AS
2 /* $Header: INVREQ1B.pls 120.1 2007/12/19 16:30:14 ssadasiv noship $ */
3
4 ------------------------------------------------------------
5 -- procedure to initialize test datastructures
6 -- executes prior to test run
7 ------------------------------------------------------------
8 PROCEDURE init IS
9 BEGIN
10 -- test writer could insert special setup code here
11 null;
12 END init;
13
14 ------------------------------------------------------------
15 -- procedure to cleanup any test datastructures that were setup in the init
16 -- procedure call executes after test run
17 ------------------------------------------------------------
18 PROCEDURE cleanup IS
19 BEGIN
20 -- test writer could insert special cleanup code here
21 NULL;
22 END cleanup;
23
24 ------------------------------------------------------------
25 -- procedure to report test name back to framework
26 ------------------------------------------------------------
27 PROCEDURE getTestName(str OUT NOCOPY VARCHAR2) IS
28 BEGIN
29 str := 'iProcurement';
30 END getTestName;
31
32 ------------------------------------------------------------
33 -- procedure to report name back to framework
34 ------------------------------------------------------------
35 PROCEDURE getComponentName(str OUT NOCOPY VARCHAR2) IS
36 BEGIN
37 str := 'REQ';
38 END getComponentName;
39
40 ------------------------------------------------------------
41 -- procedure to report test description back to framework
42 ------------------------------------------------------------
43 PROCEDURE getTestDesc(str OUT NOCOPY VARCHAR2) IS
44 BEGIN
45 str := 'This diagnostic test will collect setup and transactional data for a specific purchase requisition.'||'<BR/>'||
46 'The data collected can aid in the resolution of issues involving purchase requisition.'||'<BR/>'||
47 '<b>Parameters</b>'||'<BR/>'||
48 'This script requires either the combination of Requisition Number and Operating Unit Id or Receipt Number and Organization Id'||
49 ' as mandatory parameters.'||'<BR/>'||'Requisition Line Number is optional.'||
50 ' Alternatively all parameters can be entered at the same time.';
51 END getTestDesc;
52
53
54 ------------------------------------------------------------
55 -- procedure to provide/populate the default parameters for the test case.
56 -- There are 6 parameters in this Data Collection.
57 ------------------------------------------------------------
58 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
59 tempInput JTF_DIAG_INPUTTBL;
60 BEGIN
61 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
62 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Operating Unit Id','LOV-oracle.apps.inv.diag.lov.OperatingLov');
63 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Requisition Number','LOV-oracle.apps.inv.diag.lov.POReqNumberLov');
64 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Requisition Line Number','LOV-oracle.apps.inv.diag.lov.ReqlineLov'); -- LOV-oracle.apps.inv.diag.lov.ItemLov
65 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Organization Id','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
66 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Receipt Number','LOV-oracle.apps.inv.diag.lov.ReceiptNumLov');
67 defaultInputValues := tempInput;
68 END getDefaultTestParams;
69
70 ------------------------------------------------------------
71 -- procedure to report test mode back to the framework
72 ------------------------------------------------------------
73 FUNCTION getTestMode RETURN NUMBER IS
74 BEGIN
75 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
76 END getTestMode;
77
78 ------------------------------------------------------------
79 -- procedure to execute the PLSQL test
80 -- the inputs needed for the test are passed in and a report object and CLOB are -- returned.
81 ------------------------------------------------------------
82 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
83 report OUT NOCOPY JTF_DIAG_REPORT,
84 reportClob OUT NOCOPY CLOB) IS
85 reportStr LONG; -- REPORT
86 c_username VARCHAR2(50); -- accept input for username
87 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
88 errStr VARCHAR2(4000); -- error message
89 fixInfo VARCHAR2(4000); -- fix tip
90 isFatal VARCHAR2(50); -- TRUE or FALSE
91 row_limit NUMBER;
92 l_count NUMBER := 0;
93
94 sql_text VARCHAR2(6000); -- Text variable to hold the sqls
95
96 po_sql INV_DIAG_RCV_PO_COMMON.sqls_list; -- Table of varchar2
97 l_skip_rest VARCHAR2(1):= 'N'; -- Flag for skipping a Data collection Package call.
98
99 dummy_num NUMBER;
100 l_operating_id po_headers_all.org_id%TYPE;
101 l_req_number po_headers_all.segment1%TYPE;
102 l_line_num po_lines_all.line_num%TYPE;
103 l_org_id rcv_shipment_headers.organization_id%TYPE;
104 l_receipt_num rcv_shipment_headers.receipt_num%TYPE;
105
106 BEGIN
107 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
108 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
109 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
110 -- accept input
111 l_req_number := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Requisition Number',inputs));
112 l_operating_id := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Operating Unit Id',inputs));
113 l_line_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Requisition Line Number',inputs));
114 l_receipt_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Receipt Number',inputs));
115 l_org_id := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs));
116
117 -----------------------------------------
118 -- Validation part.
119 -----------------------------------------
120 -- 1.If PO Number is Entered,Operating Unit Id is Mandatory
121 -- 2.If Receipt Number is Entered,Organization Id is Mandatory
122 -- 3.The combination of PO and Receipt Number can be Entered
123 ------------------------------------------
124
125 IF l_req_number IS NULL THEN
126
127 IF (l_receipt_num IS NULL OR l_org_id IS NULL) THEN
128 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
129 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
130 statusStr := 'FAILURE';
131 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
132 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
133 RETURN;
134 END IF;
135 ELSIF l_operating_id IS NULL THEN
136 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
137 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
138 statusStr := 'FAILURE';
139 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
140 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
141 RETURN;
142 ELSE
143 IF (l_receipt_num IS NOT NULL AND l_req_number IS NULL AND l_org_id IS NULL) THEN
144 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
145 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
146 statusStr := 'FAILURE';
147 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
148 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
149 RETURN;
150 END IF;
151 END IF;
152 -----------------------------------------------
153 -- Check if the Entered Combinations are valid
154 -----------------------------------------------
155
156 IF l_operating_id IS NOT NULL AND l_req_number IS NOT NULL AND l_receipt_num IS NOT NULL AND l_org_id IS NOT NULL
157 AND l_line_num IS NOT NULL THEN
158
159 SELECT Count(1)
160 INTO l_count
161 FROM po_requisition_headers_all prh,
162 po_requisition_lines_all prl,
163 rcv_shipment_headers rsh,
164 rcv_shipment_lines rsl,
165 po_line_locations_all pll ,
166 po_distributions_all pd,
167 po_req_distributions_all prd
168 WHERE prh.type_lookup_code IN ('PURCHASE','INTERNAL')
169 and prh.requisition_header_id = prl.requisition_header_id
170 and prl.requisition_line_id = prd.requisition_line_id
171 AND prl.line_num=Nvl(l_line_num,prl.line_num)
172 and prl.source_type_code = 'VENDOR'
173 and pd.req_distribution_id = prd.distribution_id
174 and rsl.po_line_location_id=pll.line_location_id
175 AND rsl.shipment_header_id = rsh.shipment_header_id
176 AND pll.line_location_id = pd.line_location_id
177 AND prh.segment1=l_req_number
178 AND prh.org_id=l_operating_id
179 AND rsh.receipt_num=l_receipt_num
180 AND rsh.ship_to_org_id=l_org_id;
181 IF l_count = 0 THEN
182 statusStr := 'FAILURE';
183 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
184 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter valid data for all the input parameters.');
185 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
186 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
187 RETURN;
188 END IF;
189 END IF;
190
191 IF l_operating_id IS NOT NULL AND l_req_number IS NOT NULL then
192
193 SELECT Count(1)
194 INTO l_count
195 FROM po_requisition_headers_all prh,
196 po_requisition_lines_all prl
197 WHERE prh.type_lookup_code IN ('PURCHASE','INTERNAL')
198 and prh.requisition_header_id = prl.requisition_header_id
199 and prh.segment1=l_req_number
200 AND prh.org_id=l_operating_id;
201 IF l_count = 0 THEN
202 statusStr := 'FAILURE';
203 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
204 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Requisition number and Operating unit id.');
205 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
206 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
207 RETURN;
208 END IF;
209 END IF;
210
211 IF l_receipt_num IS NOT NULL AND l_org_id IS NOT NULL THEN
212
213 SELECT Count(1)
214 INTO l_count
215 FROM rcv_shipment_headers rsh
216 WHERE receipt_source_code='VENDOR'
217 AND rsh.receipt_num=l_receipt_num
218 AND rsh.ship_to_org_id=l_org_id;
219 IF l_count = 0 THEN
220 statusStr := 'FAILURE';
221 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
222 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Receipt number and Organization id.');
223 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
224 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
225 RETURN;
226 END IF;
227 END IF;
228
229
230 ------------------------------------------------------------------------
231 -- Call Appropriate Procedures based on the input parameters
232 -- Set l_skip_rest to "Y" so that subsequent procedure call are skipped
233 ------------------------------------------------------------------------
234 IF l_req_number IS NOT NULL AND
235 l_operating_id IS NOT NULL AND
236 l_receipt_num IS NOT NULL AND
237 l_org_id IS NOT NULL AND
238 l_skip_rest = 'N' THEN
239
240 INV_DIAG_RCV_IPROC_COMMON.build_req_all_sql(l_operating_id,l_req_number,l_line_num,l_receipt_num,l_org_id,po_sql);
241 l_skip_rest := 'Y';
242 END if;
243
244 IF l_req_number IS NOT NULL AND
245 l_operating_id IS NOT NULL AND
246 l_skip_rest = 'N' THEN
247
248 INV_DIAG_RCV_IPROC_COMMON.build_req_sql(l_operating_id,l_req_number,l_line_num,po_sql);
249 l_skip_rest := 'Y';
250 END if;
251
252 IF l_receipt_num IS NOT NULL AND
253 l_org_id IS NOT NULL AND
254 l_skip_rest = 'N' THEN
255
256 INV_DIAG_RCV_IPROC_COMMON.build_req_rcv_sql(l_receipt_num,l_org_id,po_sql);
257 l_skip_rest := 'Y';
258 END if;
259
260 -- Call the procedure to get the lookup codes
261 INV_DIAG_RCV_RCV_COMMON.build_lookup_codes(po_sql);
262 -----------------------------------------
263 -- Code to Build the Index of HTML tables
264 -----------------------------------------
265 JTF_DIAGNOSTIC_COREAPI.insert_html('<table border="1" cellpadding="1" cellspacing="1" bgcolor="#f7f7e7">'||'
266 <tr bgcolor="#cccc99">'||'
267 <th colspan="3">INDEX OF QUERIES</th>'||'
268 <a name="INDEX OF QUERIES"></a></tr>'||'
269 <tr>'||'
270 <td><a href="#PO_REQUISITION_HEADERS_ALL">PO_REQUISITION_HEADERS_ALL</a></td>'||'
271 <td><a href="#PO_REQUISITION_LINES_ALL">PO_REQUISITION_LINES_ALL</a></td>'||'
272 <td><a href="#PO_REQ_DISTRIBUTIONS_ALL">PO_REQ_DISTRIBUTIONS_ALL</a></td>'||'
273 </tr>'||'
274 <tr>'||'
275 <td><a href="#PO_HEADERS_ALL">PO_HEADERS_ALL</a></td>'||'
276 <td><a href="#PO_LINES_ALL">PO_LINES_ALL</a></td>'||'
277 <td><a href="#PO_LINE_LOCATIONS_ALL">PO_LINE_LOCATIONS_ALL</a></td>'||'
278 </tr>'||'
279 <tr>'||'
280 <td><a href="#PO_DISTRIBUTIONS_ALL">PO_DISTRIBUTIONS_ALL</a></td>'||'
281 <td><a href="#GL_CODE_COMBINATIONS">GL_CODE_COMBINATIONS</a></td>'||'
282 <td><a href="#RCV_RECEIVING_SUB_LEDGER">RCV_RECEIVING_SUB_LEDGER</a></td>'||'
283 </tr>'||'
284 <tr>'||'
285 <td><a href="#AP_INVOICE_LINES_ALL">AP_INVOICE_LINES_ALL</a></td>'||'
286 <td><a href="#AP_INVOICES_ALL">AP_INVOICES_ALL</a></td>'||'
287 <td><a href="#AP_INVOICES_INTERFACE">AP_INVOICES_INTERFACE</a></td>'||'
288 </tr>'||'
289 <tr>'||'
290 <td><a href="#AP_INVOICE_LINES_INTERFACE">AP_INVOICE_LINES_INTERFACE</a></td>'||'
291 <td><a href="#RCV_SHIPMENT_HEADERS">RCV_SHIPMENT_HEADERS</a></td>'||'
292 <td><a href="#RCV_SHIPMENT_LINES">RCV_SHIPMENT_LINES</a></td>'||'
293 </tr>'||'
294 <tr>'||'
295 <td><a href="#RCV_TRANSACTIONS">RCV_TRANSACTIONS</a></td>'||'
296 <td><a href="#MTL_SUPPLY">MTL_SUPPLY</a></td>'||'
297 <td><a href="#RCV_SUPPLY">RCV_SUPPLY</a></td>'||'
298 </tr>'||'
299 <tr>'||'
300 <td><a href="#RCV_HEADERS_INTERFACE">RCV_HEADERS_INTERFACE</a></td>'||'
301 <td><a href="#RCV_TRANSACTIONS_INTERFACE">RCV_TRANSACTIONS_INTERFACE</a></td>'||'
302 <td><a href="#PO_INTERFACE_ERRORS">PO_INTERFACE_ERRORS</a></td>'||'
303 </tr>'||'
304 <tr>'||'
305 <td><a href="#MTL_SYSTEM_ITEMS">MTL_SYSTEM_ITEMS</a></td>'||'
306 <td><a href="#MTL_MATERIAL_TRANSACTIONS">MTL_MATERIAL_TRANSACTIONS</a></td>'||'
307 <td><a href="#MTL_TRANSACTION_TYPES">MTL_TRANSACTION_TYPES</a></td>'||'
308 </tr>'||'
309 <tr>'||'
310 <td><a href="#MTL_TXN_REQUEST_LINES">MTL_TXN_REQUEST_LINES</a></td>'||'
314 <tr>'||'
311 <td><a href="#MTL_MATERIAL_TRANSACTIONS_TEMP">MTL_MATERIAL_TRANSACTIONS_TEMP</a></td>'||'
312 <td><a href="#ORG_ORGANIZATION_DEFINITIONS">ORG_ORGANIZATION_DEFINITIONS</a></td>'||'
313 </tr>'||'
315 <td><a href="#MTL_PARAMETERS">MTL_PARAMETERS</a></td>'||'
316 <td><a href="#RCV_PARAMETERS">RCV_PARAMETERS</a></td>'||'
317 <td><a href="#PO_SYSTEM_PARAMETERS_ALL">PO_SYSTEM_PARAMETERS_ALL</a></td>'||'
318 </tr>'||'
319 <tr>'||'
320 <td><a href="#FINANCIALS_SYSTEM_PARAMS_ALL">FINANCIALS_SYSTEM_PARAMS_ALL</a></td>'||'
321 <td><a href="#MTL_SERIAL_NUMBERS">MTL_SERIAL_NUMBERS</a></td>'||'
322 <td><a href="#MTL_SERIAL_NUMBERS_TEMP">MTL_SERIAL_NUMBERS_TEMP</a></td>'||'
323 </tr>'||'
324 <tr>'||'
325 <td><a href="#MTL_SERIAL_NUMBERS_INTERFACE">MTL_SERIAL_NUMBERS_INTERFACE</a></td>'||'
326 <td><a href="#MTL_UNIT_TRANSACTIONS">MTL_UNIT_TRANSACTIONS</a></td>'||'
327 <td><a href="#RCV_SERIALS_SUPPLY">RCV_SERIALS_SUPPLY</a></td>'||'
328 </tr>'||'
329 <tr>'||'
330 <td><a href="#RCV_SERIAL_TRANSACTIONS">RCV_SERIAL_TRANSACTIONS</a></td>'||'
331 <td><a href="#RCV_SERIALS_INTERFACE">RCV_SERIALS_INTERFACE</a></td>'||'
332 <td><a href="#MTL_LOT_NUMBERS">MTL_LOT_NUMBERS</a></td>'||'
333 </tr>'||'
334 <tr>'||'
335 <td><a href="#MTL_TRANSACTION_LOT_NUMBERS">MTL_TRANSACTION_LOT_NUMBERS</a></td>'||'
336 <td><a href="#MTL_TRANSACTION_LOTS_INTERFACE">MTL_TRANSACTION_LOTS_INTERFACE</a></td>'||'
337 <td><a href="#MTL_TRANSACTION_LOTS_TEMP">MTL_TRANSACTION_LOTS_TEMP</a></td>'||'
338 </tr>'||'
339 <tr>'||'
340 <td><a href="#RCV_LOTS_SUPPLY">RCV_LOTS_SUPPLY</a></td>'||'
341 <td><a href="#RCV_LOT_TRANSACTIONS">RCV_LOT_TRANSACTIONS</a></td>'||'
342 <td><a href="#RCV_LOTS_INTERFACE">RCV_LOTS_INTERFACE</a></td>'||'
343 </tr>'||'
344 <tr>'||'
345 <td><a href="#Lookup Codes">LOOKUP CODES</a></td>'||'
346 </tr>'||'
347 </table>');
348
349 -------------------
350 -- Execute the Sqls
351 -------------------
352 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Requisition Details</h4>');
353 sql_text := po_sql(1);
354 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQUISITION_HEADERS_ALL"></a>');
355 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQUISITION_HEADERS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
356 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
357 JTF_DIAGNOSTIC_COREAPI.BRPrint;
358
359 sql_text := po_sql(2);
360 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQUISITION_LINES_ALL"></a>');
361 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQUISITION_LINES_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
362 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
363 JTF_DIAGNOSTIC_COREAPI.BRPrint;
364
365 sql_text := po_sql(3);
366 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQ_DISTRIBUTIONS_ALL"></a>');
367 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQ_DISTRIBUTIONS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
368 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
369 JTF_DIAGNOSTIC_COREAPI.BRPrint;
370
371 sql_text := po_sql(4);
372
373 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Purchase Order Details</h4>');
374 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_HEADERS_ALL"></a>');
375 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_HEADERS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
376 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
377 JTF_DIAGNOSTIC_COREAPI.BRPrint;
378
379 sql_text := po_sql(5);
380 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_LINES_ALL"></a>');
381 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_LINES_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
382 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
383 JTF_DIAGNOSTIC_COREAPI.BRPrint;
384
385 sql_text := po_sql(6);
386 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_LINE_LOCATIONS_ALL"></a>');
387 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_LINE_LOCATIONS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
388 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
389 JTF_DIAGNOSTIC_COREAPI.BRPrint;
390
391 sql_text := po_sql(7);
392 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_DISTRIBUTIONS_ALL"></a>');
393 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_DISTRIBUTIONS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
394 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
395 JTF_DIAGNOSTIC_COREAPI.BRPrint;
396
397 sql_text := po_sql(8);
398
399 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Invoice Details</h4>');
400 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="GL_CODE_COMBINATIONS"></a>');
401 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>GL_CODE_COMBINATIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
402 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
403 JTF_DIAGNOSTIC_COREAPI.BRPrint;
404
405 sql_text:= po_sql(9);
406 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_RECEIVING_SUB_LEDGER"></a>');
407 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_RECEIVING_SUB_LEDGER</b> <a href="#INDEX OF QUERIES">[Top]</a>');
408 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
409 JTF_DIAGNOSTIC_COREAPI.BRPrint;
410
411 sql_text := po_sql(10);
412 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="AP_INVOICE_LINES_ALL"></a>');
413 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>AP_INVOICE_LINES_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
414 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
415 JTF_DIAGNOSTIC_COREAPI.BRPrint;
416
417 sql_text := po_sql(11);
418 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="AP_INVOICES_ALL"></a>');
419 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>AP_INVOICES_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
420 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
421 JTF_DIAGNOSTIC_COREAPI.BRPrint;
422
423 sql_text := po_sql(12);
424 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="AP_INVOICE_LINES_INTERFACE"></a>');
428
425 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>AP_INVOICE_LINES_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
426 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
427 JTF_DIAGNOSTIC_COREAPI.BRPrint;
429 sql_text:= po_sql(13);
430 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="AP_INVOICES_INTERFACE"></a>');
431 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>AP_INVOICES_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
432 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
433 JTF_DIAGNOSTIC_COREAPI.BRPrint;
434
435 sql_text:= po_sql(14);
436
437 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Receipt Details</h4>');
438 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SHIPMENT_HEADERS"></a>');
439 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SHIPMENT_HEADERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
440 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
441 JTF_DIAGNOSTIC_COREAPI.BRPrint;
442
443 sql_text:= po_sql(15);
444 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SHIPMENT_LINES"></a>');
445 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SHIPMENT_LINES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
446 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
447 JTF_DIAGNOSTIC_COREAPI.BRPrint;
448
449 sql_text:= po_sql(16);
450 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_TRANSACTIONS"></a>');
451 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
452 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
453 JTF_DIAGNOSTIC_COREAPI.BRPrint;
454
455 sql_text:= po_sql(17);
456 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SUPPLY"></a>');
457 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
458 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
459 JTF_DIAGNOSTIC_COREAPI.BRPrint;
460
461 sql_text:= po_sql(18);
462 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SUPPLY"></a>');
463 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
464 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
465 JTF_DIAGNOSTIC_COREAPI.BRPrint;
466
467 sql_text:= po_sql(19);
468 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_HEADERS_INTERFACE"></a>');
469 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_HEADERS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
470 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
471 JTF_DIAGNOSTIC_COREAPI.BRPrint;
472
473 sql_text:= po_sql(20);
474 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_TRANSACTIONS_INTERFACE"></a>');
475 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_TRANSACTIONS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
476 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
477 JTF_DIAGNOSTIC_COREAPI.BRPrint;
478
479 sql_text:= po_sql(21);
480 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_INTERFACE_ERRORS"></a>');
481 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_INTERFACE_ERRORS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
482 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
483 JTF_DIAGNOSTIC_COREAPI.BRPrint;
484
485 sql_text:= po_sql(22);
486
487 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Inventory Details</h4>');
488 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SYSTEM_ITEMS"></a>');
489 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SYSTEM_ITEMS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
490 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
491 JTF_DIAGNOSTIC_COREAPI.BRPrint;
492
493 sql_text:= po_sql(23);
494 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_MATERIAL_TRANSACTIONS"></a>');
495 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_MATERIAL_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
496 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
497 JTF_DIAGNOSTIC_COREAPI.BRPrint;
498
499 sql_text:= po_sql(24);
500 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_TYPES"></a>');
501 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_TYPES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
502 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
503 JTF_DIAGNOSTIC_COREAPI.BRPrint;
504
505 sql_text:= po_sql(25);
506 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TXN_REQUEST_LINES"></a>');
507 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TXN_REQUEST_LINES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
508 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
509 JTF_DIAGNOSTIC_COREAPI.BRPrint;
510
511 sql_text:= po_sql(26);
512 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_MATERIAL_TRANSACTIONS_TEMP"></a>');
513 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_MATERIAL_TRANSACTIONS_TEMP</b> <a href="#INDEX OF QUERIES">[Top]</a>');
514 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
515 JTF_DIAGNOSTIC_COREAPI.BRPrint;
516
517 sql_text:= po_sql(27);
518
519 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Organization Setup Details</h4>');
520 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="ORG_ORGANIZATION_DEFINITIONS"></a>');
521 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>ORG_ORGANIZATION_DEFINITIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
522 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
523 JTF_DIAGNOSTIC_COREAPI.BRPrint;
524
525 sql_text:= po_sql(28);
526 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_PARAMETERS"></a>');
527 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_PARAMETERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
528 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
529 JTF_DIAGNOSTIC_COREAPI.BRPrint;
530
531 sql_text:= po_sql(29);
532 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_PARAMETERS"></a>');
533 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_PARAMETERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
534 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
538 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_SYSTEM_PARAMETERS_ALL"></a>');
535 JTF_DIAGNOSTIC_COREAPI.BRPrint;
536
537 sql_text:= po_sql(30);
539 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_SYSTEM_PARAMETERS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
540 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
541 JTF_DIAGNOSTIC_COREAPI.BRPrint;
542
543 sql_text:= po_sql(31);
544 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="FINANCIALS_SYSTEM_PARAMS_ALL"></a>');
545 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>FINANCIALS_SYSTEM_PARAMS_ALL</b> <a href="#INDEX OF QUERIES">[Top]</a>');
546 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
547 JTF_DIAGNOSTIC_COREAPI.BRPrint;
548
549 sql_text:= po_sql(32);
550
551 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Lot and Serial Transaction Details</h4>');
552 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS"></a>');
553 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
554 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
555 JTF_DIAGNOSTIC_COREAPI.BRPrint;
556
557 sql_text:= po_sql(33);
558 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS_TEMP"></a>');
559 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS_TEMP</b> <a href="#INDEX OF QUERIES">[Top]</a>');
560 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
561 JTF_DIAGNOSTIC_COREAPI.BRPrint;
562
563 sql_text:= po_sql(34);
564 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS_INTERFACE"></a>');
565 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
566 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
567 JTF_DIAGNOSTIC_COREAPI.BRPrint;
568
569 sql_text:= po_sql(35);
570 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_UNIT_TRANSACTIONS"></a>');
571 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_UNIT_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
572 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
573 JTF_DIAGNOSTIC_COREAPI.BRPrint;
574
575 sql_text:= po_sql(36);
576 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIALS_SUPPLY"></a>');
577 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIALS_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
578 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
579 JTF_DIAGNOSTIC_COREAPI.BRPrint;
580
581 sql_text:= po_sql(37);
582 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIAL_TRANSACTIONS"></a>');
583 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIAL_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
584 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
585 JTF_DIAGNOSTIC_COREAPI.BRPrint;
586
587 sql_text:= po_sql(38);
588 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIALS_INTERFACE"></a>');
589 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIALS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
590 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
591 JTF_DIAGNOSTIC_COREAPI.BRPrint;
592
593 sql_text:= po_sql(39);
594 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_LOT_NUMBERS"></a>');
595 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_LOT_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
596 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
597 JTF_DIAGNOSTIC_COREAPI.BRPrint;
598
599 sql_text:= po_sql(40);
600 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOT_NUMBERS"></a>');
601 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOT_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
602 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
603 JTF_DIAGNOSTIC_COREAPI.BRPrint;
604
605 sql_text:= po_sql(41);
606 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOTS_INTERFACE"></a>');
607 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOTS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
608 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
609 JTF_DIAGNOSTIC_COREAPI.BRPrint;
610
611 sql_text:= po_sql(42);
612 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOTS_TEMP"></a>');
613 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOTS_TEMP</b> <a href="#INDEX OF QUERIES">[Top]</a>');
614 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
615 JTF_DIAGNOSTIC_COREAPI.BRPrint;
616
617 sql_text:= po_sql(43);
618 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOTS_SUPPLY"></a>');
619 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOTS_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
620 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
621 JTF_DIAGNOSTIC_COREAPI.BRPrint;
622
623 sql_text:= po_sql(44);
624 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOT_TRANSACTIONS"></a>');
625 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOT_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
626 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
627 JTF_DIAGNOSTIC_COREAPI.BRPrint;
628
629 sql_text:= po_sql(45);
630 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOTS_INTERFACE"></a>');
631 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOTS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
632 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
633 JTF_DIAGNOSTIC_COREAPI.BRPrint;
634
635
636 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="LOOKUP CODES"></a>');
637 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Lookup Codes</h4>');
638 sql_text:= po_sql(100);
639 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Control</b> <a href="#INDEX OF QUERIES">[Top]</a>');
640 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
641 JTF_DIAGNOSTIC_COREAPI.BRPrint;
642
643 sql_text:= po_sql(101);
644 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Uniqueness</b> <a href="#INDEX OF QUERIES">[Top]</a>');
648 sql_text:= po_sql(102);
645 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
646 JTF_DIAGNOSTIC_COREAPI.BRPrint;
647
649 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Generation</b> <a href="#INDEX OF QUERIES">[Top]</a>');
650 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
651 JTF_DIAGNOSTIC_COREAPI.BRPrint;
652
653 sql_text:= po_sql(103);
654 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Number Status</b> <a href="#INDEX OF QUERIES">[Top]</a>');
655 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
656 JTF_DIAGNOSTIC_COREAPI.BRPrint;
657
658 sql_text:= po_sql(104);
659 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Lot Control</b> <a href="#INDEX OF QUERIES">[Top]</a>');
660 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
661 JTF_DIAGNOSTIC_COREAPI.BRPrint;
662
663 sql_text:= po_sql(105);
664 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Lot Generation</b> <a href="#INDEX OF QUERIES">[Top]</a>');
665 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
666 JTF_DIAGNOSTIC_COREAPI.BRPrint;
667
668 sql_text:= po_sql(106);
669 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>LOT Uniqueness</b> <a href="#INDEX OF QUERIES">[Top]</a>');
670 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
671 JTF_DIAGNOSTIC_COREAPI.BRPrint;
672
673 -- Test Completed successfully.
674 statusStr := 'SUCCESS';
675 isFatal := 'FALSE';
676 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
677 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
678
679 EXCEPTION
680 when others then
681 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
682 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
683 statusStr := 'FAILURE';
684 errStr := sqlerrm ||' occurred in script Exception handled';
685 fixInfo := 'Unexpected Exception in INVREQ1B.pls';
686 isFatal := 'FALSE';
687 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
688 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
689 END runTest;
690
691
692 END INV_DIAG_RCV_IPROC;