31:
32: BEGIN
33: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
34: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36: -- accept input
37: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
38: l_proc_flag :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('ErrorFlag',inputs);
39: row_limit :=INV_DIAG_GRP.g_max_row;
54: end if;
55:
56:
57: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('OrgID input :'||l_org_id);
58: JTF_DIAGNOSTIC_COREAPI.BRPrint;
59: sqltxt := 'SELECT transaction_header_id "Txn Header Id" '||
60: ' , mti.transaction_interface_id "Txn IntFace|Id" '||
61: ' , mif.item_number ||'' (''|| mti.inventory_item_id ||'')'' "Item (Id)" '||
62: ' , item_segment1 "Item Segment1" '||
105: sqltxt := sqltxt||' ORDER BY transaction_header_id, mti.transaction_interface_id';
106:
107: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
108:
109: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Display transaction records in MTI'||reportStr);
110:
111: statusStr := 'SUCCESS';
112: isFatal := 'FALSE';
113:
132: end if;
133:
134: sqltxt := sqltxt||' ORDER BY transaction_interface_id';
135:
136: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Transactions with Transaction or Primary Quantity Below Minimum'||reportStr);
137:
138: statusStr := 'SUCCESS';
139: isFatal := 'FALSE';
140:
151: end if;
152:
153: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
154:
155: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Items with Trailing Spaces '||reportStr);
156:
157: statusStr := 'SUCCESS';
158: isFatal := 'FALSE';
159:
196: ' , moq.subinventory_code, moq.locator_id '||
197: ' , mil.concatenated_segments, mil.description '||
198: ' , moq.revision, moq.lot_number';
199:
200: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'On-hand Quantities of Items Associated with Pending Txns in MTI'||reportStr);
201:
202: statusStr := 'SUCCESS';
203: isFatal := 'FALSE';
204:
255: sqltxt := sqltxt||') '||
256: ' ORDER BY secondary_inventory_name';
257: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
258:
259: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Subinventories Associated with Pending Txns in MTI'||reportStr);
260:
261: statusStr := 'SUCCESS';
262: isFatal := 'FALSE';
263:
286:
287:
288: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
289:
290: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Count ALL Inventory organizations in MTI'||reportStr);
291:
292: statusStr := 'SUCCESS';
293: isFatal := 'FALSE';
294:
302: elsif l_proc_flag is not null then
303: sqltxt :=sqltxt||' where process_flag = '||l_proc_flag;
304: end if;
305:
306: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Number of Transaction stuck in MTI'||reportStr);
307:
308: statusStr := 'SUCCESS';
309: isFatal := 'FALSE';
310:
321: end if;
322: sqltxt := sqltxt||' GROUP BY process_flag '||
323: ' ORDER BY COUNT(*) , process_flag ';
324:
325: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct process_flag for All Txns in MTI'||reportStr);
326:
327: statusStr := 'SUCCESS';
328: isFatal := 'FALSE';
329:
336: end if;
337: sqltxt := sqltxt||' GROUP BY lock_flag '||
338: ' ORDER BY COUNT(*) DESC, lock_flag ';
339:
340: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct lock_flag for All Txns in MTI'||reportStr);
341:
342: statusStr := 'SUCCESS';
343: isFatal := 'FALSE';
344:
350: end if;
351: sqltxt := sqltxt||' GROUP BY transaction_mode_desc, transaction_mode '||
352: ' ORDER BY COUNT(*) , transaction_mode_desc, transaction_mode ';
353:
354: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct transaction_mode for All Txns in MTI'||reportStr);
355:
356: statusStr := 'SUCCESS';
357: isFatal := 'FALSE';
358:
364: end if;
365: sqltxt := sqltxt||'GROUP BY transaction_type_name, transaction_type_id '||
366: 'ORDER BY COUNT(*) DESC, transaction_type_name, transaction_type_id';
367:
368: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct transaction_type for All Txns in MTI'||reportStr);
369:
370: statusStr := 'SUCCESS';
371: isFatal := 'FALSE';
372:
388: sqltxt :=sqltxt||'ORDER BY mti.transaction_interface_id';
389:
390: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
391:
392: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Serial Number Information from Table MSNI'||reportStr);
393:
394: statusStr := 'SUCCESS';
395: isFatal := 'FALSE';
396:
432: sqltxt :=sqltxt||') ORDER BY mif.item_number, msn.serial_number';
433:
434: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
435:
436: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Serial Number Information from MSN for Pending Txns in MTI'||reportStr);
437:
438: statusStr := 'SUCCESS';
439: isFatal := 'FALSE';
440:
447: if l_org_id is not null then
448: sqltxt :=sqltxt||' and mti.organization_id = '||l_org_id;
449: end if;
450:
451: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Number of Pending txns that refer to a serial-controlled item'||reportStr);
452:
453: statusStr := 'SUCCESS';
454: isFatal := 'FALSE';
455:
462: if l_org_id is not null then
463: sqltxt :=sqltxt||' and mti.organization_id = '||l_org_id;
464: end if;
465:
466: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Number of Pending txns that refer to a lot-controlled item'||reportStr);
467:
468: statusStr := 'SUCCESS';
469: isFatal := 'FALSE';
470:
488: sqltxt :=sqltxt||' and mti.process_flag = '||l_proc_flag;
489: end if;
490: sqltxt :=sqltxt||'ORDER BY mtli.transaction_interface_id';
491:
492: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Lot Information form MTLI'||reportStr);
493:
494: statusStr := 'SUCCESS';
495: isFatal := 'FALSE';
496:
507: if l_proc_flag is not null then
508: sqltxt :=sqltxt||' and mti.process_flag = '||l_proc_flag;
509: end if;
510:
511: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Number of Pending txns that refer to a revision-controlled item'||reportStr);
512:
513: statusStr := 'SUCCESS';
514: isFatal := 'FALSE';
515: sqltxt := 'SELECT mif.item_number "Item|Number" '||
539: end if;
540: sqltxt :=sqltxt||' )'||
541: ' ORDER BY mif.item_number, mir.revision';
542:
543: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Revision Information'||reportStr);
544:
545: statusStr := 'SUCCESS';
546: isFatal := 'FALSE';
547:
586: if l_org_id is not null then
587: sqltxt :=sqltxt||' and mti.organization_id = '||l_org_id;
588: end if;
589: sqltxt :=sqltxt||'ORDER BY mif.item_number';
590: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Item Associated with Pending Txns in MTI'||reportStr);
591:
592: statusStr := 'SUCCESS';
593: isFatal := 'FALSE';
594:
601: sqltxt :=sqltxt||' WHERE organization_id = '||l_org_id;
602: end if;
603: sqltxt :=sqltxt||'GROUP BY error_code, error_explanation '||
604: 'ORDER BY COUNT(*) DESC, error_code, error_explanation ';
605: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct Types of Errors in MTI'||reportStr);
606:
607: statusStr := 'SUCCESS';
608: isFatal := 'FALSE';
609: errStr :='';
611:
612:
613: /**
614: else
615: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Invalid Input parameters');
616: statusStr := 'FAILURE';
617: errStr := 'org_id null';
618: fixInfo := 'Org or OrdID input is required ';
619: isFatal := 'SUCCESS';