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);
33: BEGIN
34:
35: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
36: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
37: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
38:
39: -- Printing RCV_SHIPMENT_HEADERS Data
40: JTF_DIAGNOSTIC_COREAPI.insert_html('');
41: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
36: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
37: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
38:
39: -- Printing RCV_SHIPMENT_HEADERS Data
40: JTF_DIAGNOSTIC_COREAPI.insert_html('');
41: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
42: sqltxt := ' SELECT rsh.*' ||
43: ' FROM rcv_shipment_headers rsh' ||
44: ' WHERE rsh.shipment_header_id in ' ||
37: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
38:
39: -- Printing RCV_SHIPMENT_HEADERS Data
40: JTF_DIAGNOSTIC_COREAPI.insert_html('');
41: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_HEADERS[Top]');
42: sqltxt := ' SELECT rsh.*' ||
43: ' FROM rcv_shipment_headers rsh' ||
44: ' WHERE rsh.shipment_header_id in ' ||
45: ' ( SELECT distinct rt.shipment_header_id ' ||
48: ' WHERE rt.po_line_location_id is not null ' ||
49: ' AND rt.po_line_location_id = pll.line_location_id' ||
50: ' AND pll.lcm_flag = ''Y'' ' ||
51: ' AND unit_landed_cost is null)';
52: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
53: JTF_DIAGNOSTIC_COREAPI.BRPrint;
54:
55: -- Printing RCV_SHIPMENT_LINES Data
56: JTF_DIAGNOSTIC_COREAPI.insert_html('');
49: ' AND rt.po_line_location_id = pll.line_location_id' ||
50: ' AND pll.lcm_flag = ''Y'' ' ||
51: ' AND unit_landed_cost is null)';
52: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
53: JTF_DIAGNOSTIC_COREAPI.BRPrint;
54:
55: -- Printing RCV_SHIPMENT_LINES Data
56: JTF_DIAGNOSTIC_COREAPI.insert_html('');
57: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
52: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
53: JTF_DIAGNOSTIC_COREAPI.BRPrint;
54:
55: -- Printing RCV_SHIPMENT_LINES Data
56: JTF_DIAGNOSTIC_COREAPI.insert_html('');
57: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
58: sqltxt := ' SELECT rsl.*' ||
59: ' FROM rcv_shipment_lines rsl' ||
60: ' WHERE rsl.shipment_line_id in ' ||
53: JTF_DIAGNOSTIC_COREAPI.BRPrint;
54:
55: -- Printing RCV_SHIPMENT_LINES Data
56: JTF_DIAGNOSTIC_COREAPI.insert_html('');
57: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_SHIPMENT_LINES[Top]');
58: sqltxt := ' SELECT rsl.*' ||
59: ' FROM rcv_shipment_lines rsl' ||
60: ' WHERE rsl.shipment_line_id in ' ||
61: ' ( SELECT distinct rt.shipment_line_id ' ||
64: ' WHERE rt.po_line_location_id is not null ' ||
65: ' AND rt.po_line_location_id = pll.line_location_id' ||
66: ' AND pll.lcm_flag = ''Y'' ' ||
67: ' AND unit_landed_cost is null)';
68: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
69: JTF_DIAGNOSTIC_COREAPI.BRPrint;
70:
71: -- Printing RCV_TRANSACTIONS Data
72: JTF_DIAGNOSTIC_COREAPI.insert_html('');
65: ' AND rt.po_line_location_id = pll.line_location_id' ||
66: ' AND pll.lcm_flag = ''Y'' ' ||
67: ' AND unit_landed_cost is null)';
68: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
69: JTF_DIAGNOSTIC_COREAPI.BRPrint;
70:
71: -- Printing RCV_TRANSACTIONS Data
72: JTF_DIAGNOSTIC_COREAPI.insert_html('');
73: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_TRANSACTIONS[Top]');
68: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
69: JTF_DIAGNOSTIC_COREAPI.BRPrint;
70:
71: -- Printing RCV_TRANSACTIONS Data
72: JTF_DIAGNOSTIC_COREAPI.insert_html('');
73: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_TRANSACTIONS[Top]');
74: sqltxt := ' SELECT rt.* ' ||
75: ' FROM rcv_transactions rt,' ||
76: ' po_line_locations_all pll' ||
69: JTF_DIAGNOSTIC_COREAPI.BRPrint;
70:
71: -- Printing RCV_TRANSACTIONS Data
72: JTF_DIAGNOSTIC_COREAPI.insert_html('');
73: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_TRANSACTIONS[Top]');
74: sqltxt := ' SELECT rt.* ' ||
75: ' FROM rcv_transactions rt,' ||
76: ' po_line_locations_all pll' ||
77: ' WHERE rt.po_line_location_id is not null ' ||
79: ' AND pll.lcm_flag = ''Y'' ' ||
80: ' AND unit_landed_cost is null' ||
81: ' ORDER BY rt.shipment_header_id, rt.shipment_header_id, rt.transaction_id' ;
82:
83: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
84: JTF_DIAGNOSTIC_COREAPI.BRPrint;
85:
86: -- Printing PO_LINE_LOCATIONS_ALL Data
87: JTF_DIAGNOSTIC_COREAPI.insert_html('');
80: ' AND unit_landed_cost is null' ||
81: ' ORDER BY rt.shipment_header_id, rt.shipment_header_id, rt.transaction_id' ;
82:
83: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
84: JTF_DIAGNOSTIC_COREAPI.BRPrint;
85:
86: -- Printing PO_LINE_LOCATIONS_ALL Data
87: JTF_DIAGNOSTIC_COREAPI.insert_html('');
88: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
83: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
84: JTF_DIAGNOSTIC_COREAPI.BRPrint;
85:
86: -- Printing PO_LINE_LOCATIONS_ALL Data
87: JTF_DIAGNOSTIC_COREAPI.insert_html('');
88: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
89: sqltxt := ' SELECT pll.* ' ||
90: ' FROM rcv_transactions rt,' ||
91: ' po_line_locations_all pll' ||
84: JTF_DIAGNOSTIC_COREAPI.BRPrint;
85:
86: -- Printing PO_LINE_LOCATIONS_ALL Data
87: JTF_DIAGNOSTIC_COREAPI.insert_html('');
88: JTF_DIAGNOSTIC_COREAPI.insert_html('PO_LINE_LOCATIONS_ALL[Top]');
89: sqltxt := ' SELECT pll.* ' ||
90: ' FROM rcv_transactions rt,' ||
91: ' po_line_locations_all pll' ||
92: ' WHERE rt.po_line_location_id is not null ' ||
94: ' AND pll.lcm_flag = ''Y'' ' ||
95: ' AND unit_landed_cost is null' ||
96: ' ORDER BY rt.shipment_header_id, rt.shipment_header_id, rt.transaction_id' ;
97:
98: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
99: JTF_DIAGNOSTIC_COREAPI.BRPrint;
100:
101: -- Printing MTL_PARAMETERS Data
102: JTF_DIAGNOSTIC_COREAPI.insert_html('');
95: ' AND unit_landed_cost is null' ||
96: ' ORDER BY rt.shipment_header_id, rt.shipment_header_id, rt.transaction_id' ;
97:
98: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
99: JTF_DIAGNOSTIC_COREAPI.BRPrint;
100:
101: -- Printing MTL_PARAMETERS Data
102: JTF_DIAGNOSTIC_COREAPI.insert_html('');
103: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
98: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
99: JTF_DIAGNOSTIC_COREAPI.BRPrint;
100:
101: -- Printing MTL_PARAMETERS Data
102: JTF_DIAGNOSTIC_COREAPI.insert_html('');
103: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
104: sqltxt := ' SELECT mp.* ' ||
105: ' FROM mtl_parameters mp' ||
106: ' WHERE mp.organization_id in' ||
99: JTF_DIAGNOSTIC_COREAPI.BRPrint;
100:
101: -- Printing MTL_PARAMETERS Data
102: JTF_DIAGNOSTIC_COREAPI.insert_html('');
103: JTF_DIAGNOSTIC_COREAPI.insert_html('MTL_PARAMETERS[Top]');
104: sqltxt := ' SELECT mp.* ' ||
105: ' FROM mtl_parameters mp' ||
106: ' WHERE mp.organization_id in' ||
107: ' ( SELECT distinct rt.organization_id' ||
111: ' AND rt.po_line_location_id = pll.line_location_id' ||
112: ' AND pll.lcm_flag = ''Y'' ' ||
113: ' AND rt.unit_landed_cost is null)';
114:
115: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
116: JTF_DIAGNOSTIC_COREAPI.BRPrint;
117:
118: -- Printing RCV_PARAMETERS Data
119: JTF_DIAGNOSTIC_COREAPI.insert_html('');
112: ' AND pll.lcm_flag = ''Y'' ' ||
113: ' AND rt.unit_landed_cost is null)';
114:
115: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
116: JTF_DIAGNOSTIC_COREAPI.BRPrint;
117:
118: -- Printing RCV_PARAMETERS Data
119: JTF_DIAGNOSTIC_COREAPI.insert_html('');
120: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
115: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
116: JTF_DIAGNOSTIC_COREAPI.BRPrint;
117:
118: -- Printing RCV_PARAMETERS Data
119: JTF_DIAGNOSTIC_COREAPI.insert_html('');
120: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
121: sqltxt := ' SELECT rp.* ' ||
122: ' FROM rcv_parameters rp' ||
123: ' WHERE rp.organization_id in' ||
116: JTF_DIAGNOSTIC_COREAPI.BRPrint;
117:
118: -- Printing RCV_PARAMETERS Data
119: JTF_DIAGNOSTIC_COREAPI.insert_html('');
120: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
121: sqltxt := ' SELECT rp.* ' ||
122: ' FROM rcv_parameters rp' ||
123: ' WHERE rp.organization_id in' ||
124: ' ( SELECT distinct rt.organization_id' ||
128: ' AND rt.po_line_location_id = pll.line_location_id' ||
129: ' AND pll.lcm_flag = ''Y'' ' ||
130: ' AND rt.unit_landed_cost is null)';
131:
132: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
133: JTF_DIAGNOSTIC_COREAPI.BRPrint;
134:
135: -- Test Completed successfully.
136: statusStr := 'SUCCESS';
129: ' AND pll.lcm_flag = ''Y'' ' ||
130: ' AND rt.unit_landed_cost is null)';
131:
132: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
133: JTF_DIAGNOSTIC_COREAPI.BRPrint;
134:
135: -- Test Completed successfully.
136: statusStr := 'SUCCESS';
137: isFatal := 'FALSE';
139: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
140:
141: EXCEPTION
142: when others then
143: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
144: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
145: statusStr := 'FAILURE';
146: errStr := sqlerrm ||' occurred in script Exception handled';
147: fixInfo := 'Unexpected Exception in INVDP08B.pls';
140:
141: EXCEPTION
142: when others then
143: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
144: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
145: statusStr := 'FAILURE';
146: errStr := sqlerrm ||' occurred in script Exception handled';
147: fixInfo := 'Unexpected Exception in INVDP08B.pls';
148: isFatal := 'FALSE';