1 PACKAGE BODY inv_diag_rcv_io AS
2 /* $Header: INVDR03B.pls 120.2 2008/02/19 06:25:33 srnatara 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 := 'Internal Sales Order';
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 := 'IO';
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 internal sales order.'||'<BR/>'||
46 'The data collected will be used for resolving issues involving internal sales order.'||'<BR/>'||
47 '<b>Parameters</b>'||'<BR/>'||
48 'This script requires the combination of Requisition Number and Operating Unit Id or '||
49 'Shipment Number and Organization Id or Receipt Number and Organization Id'||
50 ' as mandatory parameters.'||'<BR/>'||'Requisition Line Number is optional.'||
51 ' Alternatively all parameters can be entered at the same time.';
52 END getTestDesc;
53
54
55 ------------------------------------------------------------
56 -- procedure to provide/populate the default parameters for the test case.
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.ISOReqNumLov');
64 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Requisition Line Number','LOV-oracle.apps.inv.diag.lov.InternalReqlineLov');
65 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Organization Id','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
66 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Shipment Number','LOV-oracle.apps.inv.diag.lov.ISONumberLov');
67 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Receipt Number','LOV-oracle.apps.inv.diag.lov.ISOReceiptLov');
68 defaultInputValues := tempInput;
69 END getDefaultTestParams;
70
71 ------------------------------------------------------------
72 -- procedure to report test mode back to the framework
73 ------------------------------------------------------------
74 FUNCTION getTestMode RETURN NUMBER IS
75 BEGIN
76 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
77 END getTestMode;
78
79 ------------------------------------------------------------
80 -- procedure to execute the PLSQL test
81 -- the inputs needed for the test are passed in and a report object and CLOB are -- returned.
82 ------------------------------------------------------------
83 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
84 report OUT NOCOPY JTF_DIAG_REPORT,
85 reportClob OUT NOCOPY CLOB) IS
86 reportStr LONG; -- REPORT
87 c_username VARCHAR2(50); -- accept input for username
88 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
89 errStr VARCHAR2(4000); -- error message
90 fixInfo VARCHAR2(4000); -- fix tip
91 isFatal VARCHAR2(50); -- TRUE or FALSE
92 row_limit NUMBER;
93
94 sql_text VARCHAR2(6000);
95
96 io1_sql INV_DIAG_RCV_PO_COMMON.sqls_list;
97
98 dummy_num NUMBER;
99 l_req_num po_requisition_headers_all.segment1%TYPE;
100 l_ou_id po_requisition_headers_all.org_id%TYPE;
101 l_line_num po_requisition_lines_all.line_num%TYPE;
102 l_org_id rcv_shipment_headers.organization_id%TYPE;
103 l_receipt_num rcv_shipment_headers.receipt_num%TYPE;
104 l_shipment_num rcv_shipment_headers.shipment_num%TYPE;
105 l_count NUMBER := 1;
106 l_execute NUMBER := 0;
107
108 BEGIN
109 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
110 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
111 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
112 -- accept input
113
114 l_req_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Requisition Number',inputs));
115 l_ou_id := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Operating Unit Id',inputs));
116 l_line_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Requisition Line Number',inputs));
117 l_shipment_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Shipment Number',inputs));
118 l_receipt_num := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Receipt Number',inputs));
119
120 /* Bug#6828508
121 * OrganizationLov is wrongly referenced as 'Receiving Organization Id'.
122 * So, changed 'Receiving Organization Id' to 'Organization Id' as mentioned
123 * in OrganizationLov.
124 */
125 l_org_id := Trim(JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('Organization Id',inputs));--Bug#6828508
126
127
128
129 IF (l_shipment_num IS NULL and l_receipt_num is NOT NULL and l_org_id is NOT NULL) THEN
130
131 begin
132
133 select shipment_num
134 into l_shipment_num
135 from rcv_shipment_headers rsh
136 where receipt_num = l_receipt_num
137 and ship_to_org_id = l_org_id
138 and rsh.receipt_source_code = 'INTERNAL ORDER';
139
140 exception
141 when no_data_found then
142 l_shipment_num := 'NULL';
143 end;
144 END IF;
145
146
147 IF (l_shipment_num is NOT NULL and l_receipt_num is NULL and l_org_id is NOT NULL) THEN
148
149 begin
150 select receipt_num
151 into l_receipt_num
152 from rcv_shipment_headers rsh
153 where shipment_num = l_shipment_num
154 and ship_to_org_id = l_org_id
155 and rsh.receipt_source_code = 'INTERNAL ORDER';
156
157 exception
158 when no_data_found then
159 l_receipt_num := 'NULL';
160 end;
161 END IF;
162
163
164 IF (l_req_num is NULL and l_ou_id is NULL and l_line_num is NULL AND l_shipment_num is NULL AND l_receipt_num is NULL
165 AND l_org_id is NULL) THEN
166
167 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
168 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
169 statusStr := 'FAILURE';
170 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
171 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
172 return;
173 END IF;
174
175 IF (l_req_num is NOT NULL and l_ou_id is NULL) THEN
176
177 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
178 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
179 statusStr := 'FAILURE';
180 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
181 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
182 return;
183
184 END IF;
185
186 IF (l_req_num is NULL and l_ou_id is NOT NULL) THEN
187
188 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
189 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
190 statusStr := 'FAILURE';
191 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
192 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
193 return;
194 END IF;
195
196 IF (l_req_num is NULL AND l_ou_id is NULL AND l_line_num IS NOT NULL) THEN
197
198 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
199 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
200 statusStr := 'FAILURE';
201 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
202 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
203 return;
204 END IF;
205
206 IF (l_shipment_num is NOT NULL and l_org_id is NULL) THEN
207 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
208 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
209 statusStr := 'FAILURE';
210 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
211 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
212 return;
213 END IF;
214
215
216 IF (l_receipt_num is NOT NULL and l_org_id is NULL) THEN
217 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
218 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
219 statusStr := 'FAILURE';
220 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
221 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
222 return;
223 END IF;
224
225
226 IF (l_receipt_num is NULL and l_shipment_num is NULL and l_org_id is NOT NULL) THEN
227 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('Some of the required inputs are missing.');
228 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please refer to the parameters section for mandatory parameters for this test.');
229 statusStr := 'FAILURE';
230 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
231 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
232 return;
233 END IF;
234
235
236 IF (l_req_num is NOT NULL AND l_ou_id is NOT NULL AND l_line_num is NOT NULL AND l_receipt_num is NOT NULL AND
237 l_shipment_num is NOT NULL AND l_org_id is NOT NULL) THEN
238
239 SELECT Count(*)
240 INTO l_count
241 FROM po_requisition_headers_all prh,
242 po_requisition_lines_all prl,
243 rcv_shipment_headers rsh,
244 rcv_shipment_lines rsl
245 WHERE prh.segment1 = l_req_num
246 AND prh.org_id = l_ou_id
247 AND prh.requisition_header_id = prl.requisition_header_id
248 AND prl.line_num = l_line_num
249 AND rsh.shipment_num = l_shipment_num
250 AND rsh.receipt_num = l_receipt_num
251 AND rsh.ship_to_org_id = l_org_id
252 AND rsh.receipt_source_code = 'INTERNAL ORDER'
253 AND prl.requisition_line_id = rsl.requisition_line_id;
254
255 IF l_count = 0 THEN
256 statusStr := 'FAILURE';
257 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
258 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter valid data for all the input parameters.');
259 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
260 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
261 RETURN;
262 END IF;
263 END IF;
264
265 IF (l_req_num is NOT NULL AND l_ou_id is NOT NULL AND l_receipt_num is NOT NULL AND l_shipment_num is NOT NULL AND
266 l_org_id is NOT NULL ) THEN
267
268 SELECT Count(*)
269 INTO l_count
270 FROM po_requisition_headers_all prh,
271 po_requisition_lines_all prl,
272 rcv_shipment_headers rsh,
273 rcv_shipment_lines rsl
274 WHERE prh.segment1 = l_req_num
275 AND prh.org_id = l_ou_id
276 AND prh.requisition_header_id = prl.requisition_header_id
277 AND rsh.shipment_num = l_shipment_num
278 AND rsh.receipt_num = l_receipt_num
279 AND rsh.ship_to_org_id = l_org_id
280 AND rsh.receipt_source_code = 'INTERNAL ORDER'
281 AND prl.requisition_line_id = rsl.requisition_line_id;
282 IF l_count = 0 THEN
283 statusStr := 'FAILURE';
284 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
285 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter valid data for all the input parameters.');
286 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
287 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
288 RETURN;
289 END IF;
290 END IF;
291
292 IF (l_req_num is NOT NULL AND l_ou_id is NOT NULL AND l_line_num is NOT NULL )THEN
293
294 SELECT Count(*)
295 INTO l_count
296 FROM po_requisition_headers_all prh,
297 po_requisition_lines_all prl
298 WHERE prh.segment1 = l_req_num
299 AND prh.org_id = l_ou_id
300 AND prh.requisition_header_id = prl.requisition_header_id
301 AND prl.line_num = l_line_num
302 AND prl.source_type_code = 'INVENTORY';
303 IF l_count = 0 THEN
304 statusStr := 'FAILURE';
305 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
306 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Requisition number,Operating unit id and Requisition line number.');
307 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
308 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
309 RETURN;
310 END IF;
311 END IF;
312
313 IF (l_receipt_num is NOT NULL AND l_shipment_num is NOT NULL AND l_org_id is NOT NULL ) THEN
314
315 SELECT Count(*)
316 INTO l_count
317 FROM rcv_shipment_headers rsh,
318 rcv_shipment_lines rsl
319 WHERE rsh.shipment_num = l_shipment_num
320 AND rsh.receipt_num = l_receipt_num
321 AND rsh.ship_to_org_id = l_org_id
322 AND rsh.receipt_source_code = 'INTERNAL ORDER';
323 IF l_count = 0 THEN
324 statusStr := 'FAILURE';
325 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
326 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Receipt number,Shipment number and Organization id.');
327 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
328 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
329 RETURN;
330 END IF;
331 END IF;
332
333 IF (l_req_num is NOT NULL AND l_ou_id is NOT NULL )THEN
334
335 SELECT Count(*)
336 INTO l_count
337 FROM po_requisition_headers_all prh,
338 po_requisition_lines_all prl
339 WHERE prh.segment1 = l_req_num
340 AND prh.org_id = l_ou_id
341 AND prh.requisition_header_id = prl.requisition_header_id
342 AND prl.source_type_code = 'INVENTORY';
343 IF l_count = 0 THEN
344 statusStr := 'FAILURE';
345 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
346 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Requisition number and Operating unit id.');
347 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
348 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
349 RETURN;
350 END IF;
351 END IF;
352
353 IF (l_receipt_num is NOT NULL AND l_org_id is NOT NULL) THEN
354
355 SELECT Count(*)
356 INTO l_count
357 FROM rcv_shipment_headers rsh,
358 rcv_shipment_lines rsl
359 WHERE rsh.receipt_num = l_receipt_num
360 AND rsh.ship_to_org_id = l_org_id
364 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
361 AND rsh.receipt_source_code = 'INTERNAL ORDER';
362 IF l_count = 0 THEN
363 statusStr := 'FAILURE';
365 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Receipt number and Organization id.');
366 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
367 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
368 RETURN;
369 END IF;
370 END IF;
371
372 IF (l_shipment_num is NOT NULL AND l_org_id is NOT NULL ) THEN
373
374 SELECT Count(*)
375 INTO l_count
376 FROM rcv_shipment_headers rsh,
377 rcv_shipment_lines rsl
378 WHERE rsh.shipment_num = l_shipment_num
379 AND rsh.ship_to_org_id = l_org_id
380 AND rsh.receipt_source_code = 'INTERNAL ORDER';
381 IF l_count = 0 THEN
382 statusStr := 'FAILURE';
383 JTF_DIAGNOSTIC_COREAPI.ErrorPrint('No Data exists for the entered combination.');
384 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter a valid Shipment number and Organization id.');
385 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
386 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
387 RETURN;
388 END IF;
389 END IF;
390
391 IF (l_count <> 0) THEN
392
393 IF (l_req_num is NOT NULL AND
394 l_ou_id is NOT NULL AND
395 l_receipt_num is NOT NULL AND
396 l_line_num IS NOT NULL AND
397 l_shipment_num is NOT NULL AND
398 l_org_id is NOT NULL AND
399 l_execute = 0) THEN
400
401 io_diagnostics2.req_line_receipt_shipment_sql(l_ou_id,l_req_num,l_line_num,l_shipment_num, l_receipt_num, l_org_id,
402 io1_sql);
403 l_execute := 1;
404
405 END IF;
406
407 IF (l_req_num is NOT NULL AND
408 l_ou_id is NOT NULL AND
409 l_receipt_num is NOT NULL AND
410 l_line_num IS NULL AND
411 l_shipment_num is NOT NULL AND
412 l_org_id is NOT NULL AND
413 l_execute = 0) THEN
414
415 io_diagnostics3.req_receipt_shipment_sql(l_ou_id,l_req_num,l_shipment_num, l_receipt_num, l_org_id, io1_sql);
416 l_execute := 1;
417
418 END IF;
419
420
421 IF (l_req_num is NOT NULL AND
422 l_ou_id is NOT NULL AND
423 l_line_num IS NOT NULL AND
424 l_receipt_num is NULL AND
425 l_execute = 0)THEN
426
427 io_diagnostics1.req_line_sql(l_ou_id,l_req_num,l_line_num,io1_sql);
428 l_execute := 1;
429
430 END IF;
431
432
433 IF (l_req_num is NOT NULL AND
434 l_ou_id is NOT NULL AND
435 l_line_num is NULL AND
436 l_receipt_num is NULL AND
437 l_shipment_num is NULL AND
438 l_execute = 0) THEN
439
440 io_diagnostics1.req_num_sql(l_ou_id,l_req_num, io1_sql);
441 l_execute := 1;
442
443 END IF;
444
445 IF (l_req_num is NULL AND
446 (l_receipt_num is NOT NULL OR l_shipment_num IS NOT NULL)
447 AND l_execute = 0) THEN
448
449 io_diagnostics2.receipt_shipment_sql(l_shipment_num, l_receipt_num, l_org_id, io1_sql);
450 l_execute := 1;
451
452 END IF;
453
454 -----------------------------------------
455 -- Code to Build the Index of HTML tables
456 -----------------------------------------
457 JTF_DIAGNOSTIC_COREAPI.insert_html('<table border="1" cellpadding="1" cellspacing="1" bgcolor="#f7f7e7">'||'
458 <tr bgcolor="#cccc99">'||'
459 <th colspan="3">INDEX OF QUERIES</th>'||'
460 <a name="INDEX OF QUERIES"></a></tr>'||'
461 <tr>'||'
462 <td><a href="#PO_REQUISITION_HEADERS">PO_REQUISITION_HEADERS</a></td>'||'
463 <td><a href="#PO_REQUISITION_LINES">PO_REQUISITION_LINES</a></td>'||'
464 <td><a href="#PO_REQ_DISTRIBUTIONS">PO_REQ_DISTRIBUTIONS</a></td>'||'
465 </tr>'||'
466 <tr>'||'
467 <td><a href="#OE_ORDER_LINES">OE_ORDER_LINES</a></td>'||'
468 <td><a href="#WSH_DELIVERY_DETAILS">WSH_DELIVERY_DETAILS</a></td>'||'
469 <td><a href="#RCV_SHIPMENT_HEADERS">RCV_SHIPMENT_HEADERS</a></td>'||'
470 </tr>'||'
471 <tr>'||'
472 <td><a href="#RCV_SHIPMENT_LINES">RCV_SHIPMENT_LINES</a></td>'||'
473 <td><a href="#RCV_TRANSACTIONS">RCV_TRANSACTIONS</a></td>'||'
474 <td><a href="#MTL_SUPPLY">MTL_SUPPLY</a></td>'||'
475 </tr>'||'
476 <tr>'||'
477 <td><a href="#RCV_SUPPLY">RCV_SUPPLY</a></td>'||'
478 <td><a href="#RCV_HEADERS_INTERFACE">RCV_HEADERS_INTERFACE</a></td>'||'
479 <td><a href="#RCV_TRANSACTIONS_INTERFACE">RCV_TRANSACTIONS_INTERFACE</a></td>'||'
480 </tr>'||'
481 <tr>'||'
482 <td><a href="#PO_INTERFACE_ERRORS">PO_INTERFACE_ERRORS</a></td>'||'
483 <td><a href="#MTL_TRX_REQUEST_LINES">MTL_TRX_REQUEST_LINES</a></td>'||'
484 <td><a href="#MTL_TRANSACTIONS_INTERFACE">MTL_TRANSACTIONS_INTERFACE</a></td>'||'
485 </tr>'||'
486 <tr>'||'
487 <td><a href="#MTL_MATERIAL_TRANSACTIONS_TEMP">MTL_MATERIAL_TRANSACTIONS_TEMP</a></td>'||'
488 <td><a href="#MTL_MATERIAL_TRANSACTIONS">MTL_MATERIAL_TRANSACTIONS</a></td>'||'
489 <td><a href="#MTL_RESERVATIONS">MTL_RESERVATIONS</a></td>'||'
490 </tr>'||'
491 <tr>'||'
492 <td><a href="#MTL_DEMAND">MTL_DEMAND</a></td>'||'
493 <td><a href="#MTL_SYSTEM_ITEMS">MTL_SYSTEM_ITEMS</a></td>'||'
494 <td><a href="#MTL_SERIAL_NUMBERS">MTL_SERIAL_NUMBERS</a></td>'||'
495 </tr>'||'
496 <tr>'||'
497 <td><a href="#MTL_SERIAL_NUMBERS_TEMP">MTL_SERIAL_NUMBERS_TEMP</a></td>'||'
501 <tr>'||'
498 <td><a href="#MTL_SERIAL_NUMBERS_INTERFACE">MTL_SERIAL_NUMBERS_INTERFACE</a></td>'||'
499 <td><a href="#MTL_UNIT_TRANSACTIONS">MTL_UNIT_TRANSACTIONS</a></td>'||'
500 </tr>'||'
502 <td><a href="#RCV_SERIALS_SUPPLY">RCV_SERIALS_SUPPLY</a></td>'||'
503 <td><a href="#RCV_SERIAL_TRANSACTIONS">RCV_SERIAL_TRANSACTIONS</a></td>'||'
504 <td><a href="#RCV_SERIALS_INTERFACE">RCV_SERIALS_INTERFACE</a></td>'||'
505 </tr>'||'
506 <tr>'||'
507 <td><a href="#MTL_LOT_NUMBERS">MTL_LOT_NUMBERS</a></td>'||'
508 <td><a href="#MTL_TRANSACTION_LOT_NUMBERS">MTL_TRANSACTION_LOT_NUMBERS</a></td>'||'
509 <td><a href="#MTL_TRANSACTION_LOTS_INTERFACE">MTL_TRANSACTION_LOTS_INTERFACE</a></td>'||'
510 </tr>'||'
511 <tr>'||'
512 <td><a href="#MTL_TRANSACTION_LOTS_TEMP">MTL_TRANSACTION_LOTS_TEMP</a></td>'||'
513 <td><a href="#RCV_LOTS_SUPPLY">RCV_LOTS_SUPPLY</a></td>'||'
514 <td><a href="#RCV_LOT_TRANSACTIONS">RCV_LOT_TRANSACTIONS</a></td>'||'
515 </tr>'||'
516 <tr>'||'
517 <td><a href="#RCV_LOTS_INTERFACE">RCV_LOTS_INTERFACE</a></td>'||'
518 <td><a href="#MTL_TRANSACTION_TYPES">MTL_TRANSACTION_TYPES</a></td>'||'
519 <td><a href="#ORG_ORGANIZATION_DEFINITIONS">ORG_ORGANIZATION_DEFINITIONS</a></td>'||'
520 </tr>'||'
521 <tr>'||'
522 <td><a href="#MTL_PARAMETERS">MTL_PARAMETERS</a></td>'||'
523 <td><a href="#MTL_INTERORG_PARAMETERS">MTL_INTERORG_PARAMETERS</a></td>'||'
524 <td><a href="#RCV_PARAMETERS">RCV_PARAMETERS</a></td>'||'
525 </tr>'||'
526 <tr>'||'
527 <td><a href="#Lookup Codes">LOOKUP CODES</a></td>'||'
528 </tr>'||'
529 </table>');
530
531 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Requisition Details</h4>');
532 sql_text := io1_sql(1);
533 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQUISITION_HEADERS"></a>');
534 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQUISITION_HEADERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
535 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
536 JTF_DIAGNOSTIC_COREAPI.BRPrint;
537
538 sql_text := io1_sql(2);
539 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQUISITION_LINES"></a>');
540 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQUISITION_LINES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
541 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
542 JTF_DIAGNOSTIC_COREAPI.BRPrint;
543
544 sql_text := io1_sql(3);
545 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_REQ_DISTRIBUTIONS"></a>');
546 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_REQ_DISTRIBUTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
547 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
548 JTF_DIAGNOSTIC_COREAPI.BRPrint;
549
550 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Shipping Details</h4>');
551 sql_text := io1_sql(4);
552 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="OE_ORDER_LINES"></a>');
553 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>OE_ORDER_LINES</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 := io1_sql(5);
558 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="WSH_DELIVERY_DETAILS"></a>');
559 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>WSH_DELIVERY_DETAILS</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 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Receipt Details</h4>');
564 sql_text:= io1_sql(9);
565 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SHIPMENT_HEADERS"></a>');
566 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SHIPMENT_HEADERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
567 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
568 JTF_DIAGNOSTIC_COREAPI.BRPrint;
569
570 sql_text := io1_sql(10);
571 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SHIPMENT_LINES"></a>');
572 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SHIPMENT_LINES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
573 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
574 JTF_DIAGNOSTIC_COREAPI.BRPrint;
575
576 sql_text := io1_sql(11);
577 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_TRANSACTIONS"></a>');
578 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
579 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
580 JTF_DIAGNOSTIC_COREAPI.BRPrint;
581
582 sql_text := io1_sql(12);
583 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SUPPLY"></a>');
584 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
585 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
586 JTF_DIAGNOSTIC_COREAPI.BRPrint;
587
588 sql_text:= io1_sql(13);
589 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SUPPLY"></a>');
590 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
591 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
592 JTF_DIAGNOSTIC_COREAPI.BRPrint;
593
594 sql_text:= io1_sql(6);
595 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_HEADERS_INTERFACE"></a>');
596 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_HEADERS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
597 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
598 JTF_DIAGNOSTIC_COREAPI.BRPrint;
599
600 sql_text:= io1_sql(7);
601 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_TRANSACTIONS_INTERFACE"></a>');
605
602 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_TRANSACTIONS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
603 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
604 JTF_DIAGNOSTIC_COREAPI.BRPrint;
606 sql_text:= io1_sql(8);
607 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_INTERFACE_ERRORS"></a>');
608 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_INTERFACE_ERRORS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
609 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
610 JTF_DIAGNOSTIC_COREAPI.BRPrint;
611
612 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Inventory Details</h4>');
613 sql_text:= io1_sql(14);
614 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRX_REQUEST_LINES"></a>');
615 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRX_REQUEST_LINES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
616 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
617 JTF_DIAGNOSTIC_COREAPI.BRPrint;
618
619 sql_text:= io1_sql(15);
620 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTIONS_INTERFACE"></a>');
621 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTIONS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
622 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
623 JTF_DIAGNOSTIC_COREAPI.BRPrint;
624
625 sql_text:= io1_sql(16);
626 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_MATERIAL_TRANSACTIONS_TEMP"></a>');
627 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_MATERIAL_TRANSACTIONS_TEMP</b> <a href="#INDEX OF QUERIES">[Top]</a>');
628 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
629 JTF_DIAGNOSTIC_COREAPI.BRPrint;
630
631 sql_text:= io1_sql(17);
632 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_MATERIAL_TRANSACTIONS"></a>');
633 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_MATERIAL_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
634 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
635 JTF_DIAGNOSTIC_COREAPI.BRPrint;
636
637 sql_text:= io1_sql(18);
638 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_RESERVATIONS"></a>');
639 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_RESERVATIONS</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:= io1_sql(19);
644 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_DEMAND"></a>');
645 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_DEMAND</b> <a href="#INDEX OF QUERIES">[Top]</a>');
646 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
647 JTF_DIAGNOSTIC_COREAPI.BRPrint;
648
649 sql_text:= io1_sql(34);
650 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SYSTEM_ITEMS"></a>');
651 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SYSTEM_ITEMS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
652 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
653 JTF_DIAGNOSTIC_COREAPI.BRPrint;
654
655 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Lot and Serial Transaction Details</h4>');
656 sql_text:= io1_sql(20);
657 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS"></a>');
658 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
659 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
660 JTF_DIAGNOSTIC_COREAPI.BRPrint;
661
662 sql_text:= io1_sql(21);
663 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS_TEMP"></a>');
664 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS_TEMP</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:= io1_sql(22);
669 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_SERIAL_NUMBERS_INTERFACE"></a>');
670 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_SERIAL_NUMBERS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
671 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
672 JTF_DIAGNOSTIC_COREAPI.BRPrint;
673
674 sql_text:= io1_sql(23);
675 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_UNIT_TRANSACTIONS"></a>');
676 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_UNIT_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
677 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
678 JTF_DIAGNOSTIC_COREAPI.BRPrint;
679
680 sql_text:= io1_sql(24);
681 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIALS_SUPPLY"></a>');
682 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIALS_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
683 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
684 JTF_DIAGNOSTIC_COREAPI.BRPrint;
685
686 sql_text:= io1_sql(25);
687 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIAL_TRANSACTIONS"></a>');
688 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIAL_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
689 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
690 JTF_DIAGNOSTIC_COREAPI.BRPrint;
691
692 sql_text:= io1_sql(26);
693 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_SERIALS_INTERFACE"></a>');
694 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_SERIALS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
695 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
696 JTF_DIAGNOSTIC_COREAPI.BRPrint;
697
698 sql_text:= io1_sql(27);
699 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_LOT_NUMBERS"></a>');
700 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_LOT_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
704 sql_text:= io1_sql(28);
701 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
702 JTF_DIAGNOSTIC_COREAPI.BRPrint;
703
705 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOT_NUMBERS"></a>');
706 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOT_NUMBERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
707 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
708 JTF_DIAGNOSTIC_COREAPI.BRPrint;
709
710 sql_text:= io1_sql(29);
711 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOTS_INTERFACE"></a>');
712 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOTS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
713 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
714 JTF_DIAGNOSTIC_COREAPI.BRPrint;
715
716 sql_text:= io1_sql(30);
717 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_LOTS_TEMP"></a>');
718 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_LOTS_TEMP</b> <a href="#INDEX OF QUERIES">[Top]</a>');
719 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
720 JTF_DIAGNOSTIC_COREAPI.BRPrint;
721
722 sql_text:= io1_sql(31);
723 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOTS_SUPPLY"></a>');
724 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOTS_SUPPLY</b> <a href="#INDEX OF QUERIES">[Top]</a>');
725 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
726 JTF_DIAGNOSTIC_COREAPI.BRPrint;
727
728 sql_text:= io1_sql(32);
729 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOT_TRANSACTIONS"></a>');
730 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOT_TRANSACTIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
731 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
732 JTF_DIAGNOSTIC_COREAPI.BRPrint;
733
734 sql_text:= io1_sql(33);
735 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_LOTS_INTERFACE"></a>');
736 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_LOTS_INTERFACE</b> <a href="#INDEX OF QUERIES">[Top]</a>');
737 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
738 JTF_DIAGNOSTIC_COREAPI.BRPrint;
739
740 sql_text:= io1_sql(35);
741 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_TRANSACTION_TYPES"></a>');
742 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_TRANSACTION_TYPES</b> <a href="#INDEX OF QUERIES">[Top]</a>');
743 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
744 JTF_DIAGNOSTIC_COREAPI.BRPrint;
745
746 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Organization Setup Details</h4>');
747 sql_text:= io1_sql(36);
748 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="ORG_ORGANIZATION_DEFINITIONS"></a>');
749 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>ORG_ORGANIZATION_DEFINITIONS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
750 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
751 JTF_DIAGNOSTIC_COREAPI.BRPrint;
752
753 sql_text:= io1_sql(37);
754 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_PARAMETERS"></a>');
755 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_PARAMETERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
756 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
757 JTF_DIAGNOSTIC_COREAPI.BRPrint;
758
759 sql_text:= io1_sql(38);
760 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_INTERORG_PARAMETERS"></a>');
761 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_INTERORG_PARAMETERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
762 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
763 JTF_DIAGNOSTIC_COREAPI.BRPrint;
764
765 sql_text:= io1_sql(39);
766 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_PARAMETERS"></a>');
767 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_PARAMETERS</b> <a href="#INDEX OF QUERIES">[Top]</a>');
768 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
769 JTF_DIAGNOSTIC_COREAPI.BRPrint;
770
771 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="LOOKUP CODES"></a>');
772 JTF_DIAGNOSTIC_COREAPI.insert_html('<h4>Lookup Codes</h4>');
773 sql_text:= io1_sql(40);
774 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Lot Control</b> <a href="#INDEX OF QUERIES">[Top]</a>');
775 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
776 JTF_DIAGNOSTIC_COREAPI.BRPrint;
777
778 sql_text:= io1_sql(41);
779 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Lot Generation</b> <a href="#INDEX OF QUERIES">[Top]</a>');
780 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
781 JTF_DIAGNOSTIC_COREAPI.BRPrint;
782
783 sql_text:= io1_sql(42);
784 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>LOT Uniqueness</b> <a href="#INDEX OF QUERIES">[Top]</a>');
785 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
786 JTF_DIAGNOSTIC_COREAPI.BRPrint;
787
788 sql_text:= io1_sql(43);
789 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Control</b> <a href="#INDEX OF QUERIES">[Top]</a>');
790 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
791 JTF_DIAGNOSTIC_COREAPI.BRPrint;
792
793 sql_text:= io1_sql(44);
794 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Uniqueness</b> <a href="#INDEX OF QUERIES">[Top]</a>');
795 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
796 JTF_DIAGNOSTIC_COREAPI.BRPrint;
797
798 sql_text:= io1_sql(45);
799 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Generation</b> <a href="#INDEX OF QUERIES">[Top]</a>');
800 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
801 JTF_DIAGNOSTIC_COREAPI.BRPrint;
802
803 sql_text:= io1_sql(46);
804 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>Serial Number Status</b> <a href="#INDEX OF QUERIES">[Top]</a>');
805 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sql_text,'');
806 JTF_DIAGNOSTIC_COREAPI.BRPrint;
807 END IF;
808
809
810 statusStr := 'SUCCESS';
811 isFatal := 'FALSE';
812 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
813 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
814
815
816 EXCEPTION
817 when others then
818 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
819 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
820 statusStr := 'FAILURE';
821 errStr := sqlerrm ||' occurred in script Exception handled';
822 fixInfo := 'Unexpected Exception in INVDR01B.pls';
823 isFatal := 'FALSE';
824 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
825 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
826 END runTest;
827
828
829 END inv_diag_rcv_io;