18: reportClob OUT NOCOPY CLOB) IS
19:
20: reportStr LONG;
21: counter NUMBER;
22: dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
23: c_userid VARCHAR2(50);
24: statusStr VARCHAR2(50);
25: errStr VARCHAR2(4000);
26: fixInfo VARCHAR2(4000);
31: BEGIN
32:
33: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
34: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36: --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
37:
38: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
39:
32:
33: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
34: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36: --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
37:
38: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
39:
40:
64: ' mp.organization_code || '' ('' || moqd.organization_id || '')'',' ||
65: ' mif.item_number|| '' (''||moqd.inventory_item_id||'')'',' ||
66: ' moqd.inventory_item_id, moqd.subinventory_code, moqd.locator_id, moqd.lot_number, moqd.revision' ;
67:
68: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Onhand with locator for SKU not locator controlled');
69:
70: ELSE
71:
72: sqltxt := ' select mp.organization_code|| '' (''||t.organization_id ||'')'' "Organization|Code (Id)"' ||
92: ' mp.organization_code || '' ('' || t.organization_id || '')'',' ||
93: ' mif.item_number|| '' (''||t.inventory_item_id||'')'',' ||
94: ' t.subinventory_code, t.locator_id, t.lot_number, t.revision';
95:
96: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,' Onhand with locator for SKU not locator controlled.');
97: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,' Please execute with organization identifier to identify the locator mismatch for an organization.');
98: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,' Alternatively user can execute the mismatch script mentioned in Note 279205.1 and then this script without organization identifier to identify locator mismatches across organization.');
99:
100: END IF;
106: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
107:
108: EXCEPTION
109: when others then
110: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
111: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
112: statusStr := 'FAILURE';
113: errStr := sqlerrm ||' occurred in script Exception handled';
114: fixInfo := 'Unexpected Exception in INVDO05B.pls';
107:
108: EXCEPTION
109: when others then
110: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
111: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
112: statusStr := 'FAILURE';
113: errStr := sqlerrm ||' occurred in script Exception handled';
114: fixInfo := 'Unexpected Exception in INVDO05B.pls';
115: isFatal := 'FALSE';