28:
29: BEGIN
30: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
31: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
32: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
33:
34: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
35:
36: sqltxt :='select mp.organization_code|| '' (''||moqd.organization_id ||'')'' "Organization|Code (Id)"' ||
56: ' mif.item_number|| '' (''||moqd.inventory_item_id||'')'',' ||
57: ' moqd.inventory_item_id, moqd.subinventory_code, moqd.locator_id, moqd.lot_number, moqd.revision' ;
58:
59:
60: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Onhand with Lot number for Item Not Lot Controlled');
61:
62: reportStr := 'The test completed as expected';
63: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
64: statusStr := 'SUCCESS';
66: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
67:
68: EXCEPTION
69: when others then
70: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
71: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
72: statusStr := 'FAILURE';
73: errStr := sqlerrm ||' occurred in script Exception handled';
74: fixInfo := 'Unexpected Exception in INVDO01B.pls';
67:
68: EXCEPTION
69: when others then
70: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
71: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
72: statusStr := 'FAILURE';
73: errStr := sqlerrm ||' occurred in script Exception handled';
74: fixInfo := 'Unexpected Exception in INVDO01B.pls';
75: isFatal := 'FALSE';