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: sqltxt := ' SELECT rsh.* ' ||
41: ' FROM rcv_shipment_headers rsh,' ||
42: ' rcv_parameters rp' ||
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: sqltxt := ' SELECT rsh.* ' ||
41: ' FROM rcv_shipment_headers rsh,' ||
42: ' rcv_parameters rp' ||
43: ' WHERE rsh.ship_to_org_id = rp.organization_id ' ||
44: ' AND rp.pre_receive = ''Y'' ' ||
45: ' AND rsh.asn_type = ''ASN'' ' ||
46: ' AND rsh.creation_date >= rp.last_update_date' ;
47:
48: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
49: JTF_DIAGNOSTIC_COREAPI.BRPrint;
50:
51: -- Printing RCV_PARAMETERS Data
52: JTF_DIAGNOSTIC_COREAPI.insert_html('');
45: ' AND rsh.asn_type = ''ASN'' ' ||
46: ' AND rsh.creation_date >= rp.last_update_date' ;
47:
48: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
49: JTF_DIAGNOSTIC_COREAPI.BRPrint;
50:
51: -- Printing RCV_PARAMETERS Data
52: JTF_DIAGNOSTIC_COREAPI.insert_html('');
53: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
48: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
49: JTF_DIAGNOSTIC_COREAPI.BRPrint;
50:
51: -- Printing RCV_PARAMETERS Data
52: JTF_DIAGNOSTIC_COREAPI.insert_html('');
53: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
54: sqltxt := ' SELECT distinct rp.* ' ||
55: ' FROM rcv_shipment_headers rsh,' ||
56: ' rcv_parameters rp' ||
49: JTF_DIAGNOSTIC_COREAPI.BRPrint;
50:
51: -- Printing RCV_PARAMETERS Data
52: JTF_DIAGNOSTIC_COREAPI.insert_html('');
53: JTF_DIAGNOSTIC_COREAPI.insert_html('RCV_PARAMETERS[Top]');
54: sqltxt := ' SELECT distinct rp.* ' ||
55: ' FROM rcv_shipment_headers rsh,' ||
56: ' rcv_parameters rp' ||
57: ' WHERE rsh.ship_to_org_id = rp.organization_id ' ||
58: ' AND rp.pre_receive = ''Y'' ' ||
59: ' AND rsh.asn_type = ''ASN'' ' ||
60: ' AND rsh.creation_date >= rp.last_update_date' ;
61:
62: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
63: JTF_DIAGNOSTIC_COREAPI.BRPrint;
64:
65: -- Test Completed successfully.
66: statusStr := 'SUCCESS';
59: ' AND rsh.asn_type = ''ASN'' ' ||
60: ' AND rsh.creation_date >= rp.last_update_date' ;
61:
62: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
63: JTF_DIAGNOSTIC_COREAPI.BRPrint;
64:
65: -- Test Completed successfully.
66: statusStr := 'SUCCESS';
67: isFatal := 'FALSE';
69: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
70:
71: EXCEPTION
72: when others then
73: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
74: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
75: statusStr := 'FAILURE';
76: errStr := sqlerrm ||' occurred in script Exception handled';
77: fixInfo := 'Unexpected Exception in INVDP08B.pls';
70:
71: EXCEPTION
72: when others then
73: JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
74: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
75: statusStr := 'FAILURE';
76: errStr := sqlerrm ||' occurred in script Exception handled';
77: fixInfo := 'Unexpected Exception in INVDP08B.pls';
78: isFatal := 'FALSE';