[Home] [Help]
PACKAGE BODY: APPS.INV_RCV_DIAG_LCM_05
Source
1 PACKAGE BODY INV_RCV_DIAG_LCM_05 AS
2 /* $Header: INVRCV5B.pls 120.1 2009/03/26 21:41:23 vthevark noship $ */
3
4 PROCEDURE init is
5 BEGIN
6 -- test writer
7 null;
8 END init;
9
10 PROCEDURE cleanup IS
11 BEGIN
12 -- test writer could insert special cleanup code here
13 NULL;
14 END cleanup;
15
16 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
17 report OUT NOCOPY JTF_DIAG_REPORT,
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);
27 isFatal VARCHAR2(50);
28 dummy_num NUMBER;
29 sqltxt VARCHAR2 (9999);
30
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_TRANSACTIONS_INTERFACE Data
38 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_TRANSACTIONS_INTERFACE"></a>');
39 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_TRANSACTIONS_INTERFACE</b><a href="#INDEX OF QUERIES">[Top]</a>');
40 sqltxt := ' SELECT rti.* ' ||
41 ' FROM rcv_transactions_interface rti,' ||
42 ' rcv_parameters rp,' ||
43 ' po_line_locations_all pll' ||
44 ' WHERE rti.po_line_location_id is not null ' ||
45 ' AND rti.po_line_location_id = pll.line_location_id ' ||
46 ' AND pll.lcm_flag = ''Y'' ' ||
47 ' AND rti.to_organization_id = rp.organization_id' ||
48 ' AND rp.pre_receive <> ''Y'' ' ||
49 ' AND rti.transaction_type in (''RECEIVE'', ''SHIP'')' ||
50 ' AND rti.auto_transact_code in (''RECEIVE'', ''DELIVER'')' ||
51 ' AND rti.processing_mode_code in (''IMMEDIATE'', ''ONLINE'')' ;
52 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
53 JTF_DIAGNOSTIC_COREAPI.BRPrint;
54
55 -- Printing PO_LINE_LOCATIONS_ALL Data
56 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="PO_LINE_LOCATIONS_ALL"></a>');
57 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>PO_LINE_LOCATIONS_ALL</b><a href="#INDEX OF QUERIES">[Top]</a>');
58 sqltxt := ' SELECT pll.* ' ||
59 ' FROM rcv_transactions_interface rti,' ||
60 ' rcv_parameters rp,' ||
61 ' po_line_locations_all pll' ||
62 ' WHERE rti.po_line_location_id is not null ' ||
63 ' AND rti.po_line_location_id = pll.line_location_id ' ||
64 ' AND pll.lcm_flag = ''Y'' ' ||
65 ' AND rti.to_organization_id = rp.organization_id' ||
66 ' AND rp.pre_receive <> ''Y'' ' ||
67 ' AND rti.transaction_type in (''RECEIVE'', ''SHIP'')' ||
68 ' AND rti.auto_transact_code in (''RECEIVE'', ''DELIVER'')' ||
69 ' AND rti.processing_mode_code in (''IMMEDIATE'', ''ONLINE'')' ;
70 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
71 JTF_DIAGNOSTIC_COREAPI.BRPrint;
72
73 -- Printing RCV_PARAMETERS Data
74 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_PARAMETERS"></a>');
75 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_PARAMETERS</b><a href="#INDEX OF QUERIES">[Top]</a>');
76 sqltxt := ' SELECT rp.* ' ||
77 ' FROM rcv_transactions_interface rti,' ||
78 ' rcv_parameters rp,' ||
79 ' po_line_locations_all pll' ||
80 ' WHERE rti.po_line_location_id is not null ' ||
81 ' AND rti.po_line_location_id = pll.line_location_id ' ||
82 ' AND pll.lcm_flag = ''Y'' ' ||
83 ' AND rti.to_organization_id = rp.organization_id' ||
84 ' AND rp.pre_receive <> ''Y'' ' ||
85 ' AND rti.transaction_type in (''RECEIVE'', ''SHIP'')' ||
86 ' AND rti.auto_transact_code in (''RECEIVE'', ''DELIVER'')' ||
87 ' AND rti.processing_mode_code in (''IMMEDIATE'', ''ONLINE'')' ;
88 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
89 JTF_DIAGNOSTIC_COREAPI.BRPrint;
90
91 -- Test Completed successfully.
92 statusStr := 'SUCCESS';
93 isFatal := 'FALSE';
94 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
95 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
96
97 EXCEPTION
98 when others then
99 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
100 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
101 statusStr := 'FAILURE';
102 errStr := sqlerrm ||' occurred in script Exception handled';
103 fixInfo := 'Unexpected Exception in INVDP08B.pls';
104 isFatal := 'FALSE';
105 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
106 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
107 END runTest;
108
109
110 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
111 BEGIN
112 name := 'Stuck lcm receipt records in a blackbox org';
113 END getComponentName;
114
115 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
116 BEGIN
117 descStr := 'Stuck lcm receipt records in RTI in IMMEDIATE/ONLINE modes in a blackbox org ';
118 END getTestDesc;
119
120 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
121 BEGIN
122 name := 'Unprocessed Receipt transactions associated to an LCM enabled PO shipment, for all organizations using LCM as a Service';
123 END getTestName;
124
125 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
126 tempDependencies JTF_DIAG_DEPENDTBL;
127
128 BEGIN
129 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
130 END getDependencies;
131
132 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
133 BEGIN
134 str := 'FALSE';
135 END isDependencyPipelined;
136
137 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
138 tempOutput JTF_DIAG_OUTPUTTBL;
139 BEGIN
140 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
141 outputValues := tempOutput;
142 EXCEPTION
143 when others then
144 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
145 END getOutputValues;
146
147 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
148 tempInput JTF_DIAG_INPUTTBL;
149 BEGIN
150 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
151 defaultInputValues := tempInput;
152 EXCEPTION
153 when others then
154 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
155 END getDefaultTestParams;
156
157 Function getTestMode return INTEGER IS
158 BEGIN
159 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
160 END getTestMode;
161
162 END INV_RCV_DIAG_LCM_05;