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:
37: -- Printing RCV_SHIPMENT_HEADERS Data
38: JTF_DIAGNOSTIC_COREAPI.insert_html('');
39: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
34: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36:
37: -- Printing RCV_SHIPMENT_HEADERS Data
38: JTF_DIAGNOSTIC_COREAPI.insert_html('');
39: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
40:
41: sqltxt := ' select rsh.* ' ||
42: ' FROM rcv_shipment_lines rsl,' ||
35: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36:
37: -- Printing RCV_SHIPMENT_HEADERS Data
38: JTF_DIAGNOSTIC_COREAPI.insert_html('');
39: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
40:
41: sqltxt := ' select rsh.* ' ||
42: ' FROM rcv_shipment_lines rsl,' ||
43: ' rcv_shipment_headers rsh ' ||
50: ' GROUP BY lcm_shipment_line_id' ||
51: ' HAVING COUNT(shipment_line_id) > 1))' ||
52: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
53:
54: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
55: JTF_DIAGNOSTIC_COREAPI.BRPrint;
56:
57: -- Printing RCV_SHIPMENT_LINES Data
58: JTF_DIAGNOSTIC_COREAPI.insert_html('');
51: ' HAVING COUNT(shipment_line_id) > 1))' ||
52: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
53:
54: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
55: JTF_DIAGNOSTIC_COREAPI.BRPrint;
56:
57: -- Printing RCV_SHIPMENT_LINES Data
58: JTF_DIAGNOSTIC_COREAPI.insert_html('');
59: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
54: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
55: JTF_DIAGNOSTIC_COREAPI.BRPrint;
56:
57: -- Printing RCV_SHIPMENT_LINES Data
58: JTF_DIAGNOSTIC_COREAPI.insert_html('');
59: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
60:
61: sqltxt := ' select * ' ||
62: ' FROM rcv_shipment_lines' ||
55: JTF_DIAGNOSTIC_COREAPI.BRPrint;
56:
57: -- Printing RCV_SHIPMENT_LINES Data
58: JTF_DIAGNOSTIC_COREAPI.insert_html('');
59: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
60:
61: sqltxt := ' select * ' ||
62: ' FROM rcv_shipment_lines' ||
63: ' WHERE lcm_shipment_line_id in ' ||
67: ' WHERE lcm_shipment_line_id is not null' ||
68: ' GROUP BY lcm_shipment_line_id' ||
69: ' HAVING COUNT(shipment_line_id) > 1))' ||
70: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
71: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
72: JTF_DIAGNOSTIC_COREAPI.BRPrint;
73:
74: -- Printing PO_LINE_LOCATIONS_ALL Data
75: JTF_DIAGNOSTIC_COREAPI.insert_html('');
68: ' GROUP BY lcm_shipment_line_id' ||
69: ' HAVING COUNT(shipment_line_id) > 1))' ||
70: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
71: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
72: JTF_DIAGNOSTIC_COREAPI.BRPrint;
73:
74: -- Printing PO_LINE_LOCATIONS_ALL Data
75: JTF_DIAGNOSTIC_COREAPI.insert_html('');
76: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
71: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
72: JTF_DIAGNOSTIC_COREAPI.BRPrint;
73:
74: -- Printing PO_LINE_LOCATIONS_ALL Data
75: JTF_DIAGNOSTIC_COREAPI.insert_html('');
76: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
77:
78: sqltxt := ' select pll.* ' ||
79: ' FROM rcv_shipment_lines rsl,' ||
72: JTF_DIAGNOSTIC_COREAPI.BRPrint;
73:
74: -- Printing PO_LINE_LOCATIONS_ALL Data
75: JTF_DIAGNOSTIC_COREAPI.insert_html('');
76: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
77:
78: sqltxt := ' select pll.* ' ||
79: ' FROM rcv_shipment_lines rsl,' ||
80: ' po_line_locations_all pll ' ||
87: ' GROUP BY lcm_shipment_line_id' ||
88: ' HAVING COUNT(shipment_line_id) > 1))' ||
89: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
90:
91: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
92: JTF_DIAGNOSTIC_COREAPI.BRPrint;
93:
94: -- Printing MTL_PARAMETERS Data
95: JTF_DIAGNOSTIC_COREAPI.insert_html('');
88: ' HAVING COUNT(shipment_line_id) > 1))' ||
89: ' ORDER BY lcm_shipment_line_id, shipment_line_id';
90:
91: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
92: JTF_DIAGNOSTIC_COREAPI.BRPrint;
93:
94: -- Printing MTL_PARAMETERS Data
95: JTF_DIAGNOSTIC_COREAPI.insert_html('');
96: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
91: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
92: JTF_DIAGNOSTIC_COREAPI.BRPrint;
93:
94: -- Printing MTL_PARAMETERS Data
95: JTF_DIAGNOSTIC_COREAPI.insert_html('');
96: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
97:
98: sqltxt := ' select mp.* ' ||
99: ' FROM mtl_parameters mp ' ||
92: JTF_DIAGNOSTIC_COREAPI.BRPrint;
93:
94: -- Printing MTL_PARAMETERS Data
95: JTF_DIAGNOSTIC_COREAPI.insert_html('');
96: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
97:
98: sqltxt := ' select mp.* ' ||
99: ' FROM mtl_parameters mp ' ||
100: ' WHERE mp.organization_id in ' ||
109: ' WHERE lcm_shipment_line_id is not null' ||
110: ' GROUP BY lcm_shipment_line_id' ||
111: ' HAVING COUNT(shipment_line_id) > 1)))';
112:
113: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
114: JTF_DIAGNOSTIC_COREAPI.BRPrint;
115:
116: -- Printing RCV_PARAMETERS Data
117: JTF_DIAGNOSTIC_COREAPI.insert_html('');
110: ' GROUP BY lcm_shipment_line_id' ||
111: ' HAVING COUNT(shipment_line_id) > 1)))';
112:
113: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
114: JTF_DIAGNOSTIC_COREAPI.BRPrint;
115:
116: -- Printing RCV_PARAMETERS Data
117: JTF_DIAGNOSTIC_COREAPI.insert_html('');
118: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
113: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
114: JTF_DIAGNOSTIC_COREAPI.BRPrint;
115:
116: -- Printing RCV_PARAMETERS Data
117: JTF_DIAGNOSTIC_COREAPI.insert_html('');
118: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
119:
120: sqltxt := ' select rp.* ' ||
121: ' FROM rcv_parameters rp ' ||
114: JTF_DIAGNOSTIC_COREAPI.BRPrint;
115:
116: -- Printing RCV_PARAMETERS Data
117: JTF_DIAGNOSTIC_COREAPI.insert_html('');
118: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
119:
120: sqltxt := ' select rp.* ' ||
121: ' FROM rcv_parameters rp ' ||
122: ' WHERE rp.organization_id in ' ||
131: ' WHERE lcm_shipment_line_id is not null' ||
132: ' GROUP BY lcm_shipment_line_id' ||
133: ' HAVING COUNT(shipment_line_id) > 1)))';
134:
135: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
136: JTF_DIAGNOSTIC_COREAPI.BRPrint;
137:
138: -- Test Completed successfully.
139: statusStr := 'SUCCESS';
132: ' GROUP BY lcm_shipment_line_id' ||
133: ' HAVING COUNT(shipment_line_id) > 1)))';
134:
135: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
136: JTF_DIAGNOSTIC_COREAPI.BRPrint;
137:
138: -- Test Completed successfully.
139: statusStr := 'SUCCESS';
140: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
141: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
142:
143: EXCEPTION
144: when others then
145: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
146: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
147: statusStr := 'FAILURE';
148: errStr := sqlerrm ||' occurred in script Exception handled';
149: fixInfo := 'Unexpected Exception in INVDP08B.pls';
142:
143: EXCEPTION
144: when others then
145: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
146: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
147: statusStr := 'FAILURE';
148: errStr := sqlerrm ||' occurred in script Exception handled';
149: fixInfo := 'Unexpected Exception in INVDP08B.pls';
150: isFatal := 'FALSE';