1 PACKAGE BODY INV_DIAG_RSV_HDR_ZERO AS
2 /* $Header: INVDP02B.pls 120.0.12000000.1 2007/06/22 01:13:28 musinha noship $ */
3
4 ------------------------------------------------------------
5 -- procedure to initialize test datastructures
6 -- executed prior to test run leave body as null otherwize
7 ------------------------------------------------------------
8 PROCEDURE init IS
9 BEGIN
10 -- test writer could insert special setup code here
11 null;
12 END init;
13
14 ------------------------------------------------------------
15 -- procedure to cleanup any test datastructures that were setup in the init
16 -- procedure call executes after test run leave body as null otherwize
17 ------------------------------------------------------------
18 PROCEDURE cleanup IS
19 BEGIN
20 -- test writer could insert special cleanup code here
21 NULL;
22 END cleanup;
23
24 ------------------------------------------------------------
25 -- procedure to execute the PLSQL test
26 -- the inputs needed for the test are passed in and a report object and CLOB are
27 -- returned.
28 -- note the way that support API writes to the report CLOB.
29 ------------------------------------------------------------
30 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
31 report OUT NOCOPY JTF_DIAG_REPORT,
32 reportClob OUT NOCOPY CLOB) IS
33 reportStr LONG;
34 counter NUMBER;
35 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
36 c_userid VARCHAR2(50);
37 statusStr VARCHAR2(50);
38 errStr VARCHAR2(4000);
39 fixInfo VARCHAR2(4000);
40 isFatal VARCHAR2(50);
41 dummy_num NUMBER;
42 sqltxt VARCHAR2 (2000);
43 BEGIN
44 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
45 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
46 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
47 --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
48
49 sqltxt := ' SELECT MR.RESERVATION_ID RSV_ID,' ||
50 ' MR.DEMAND_SOURCE_LINE_ID ORDER_LINE_ID,' ||
51 ' MR.INVENTORY_ITEM_ID ITEM_ID,' ||
52 ' MR.ORGANIZATION_ID ORG_ID,' ||
53 ' MR.PRIMARY_RESERVATION_QUANTITY PRSV_QTY' ||
54 ' FROM MTL_RESERVATIONS MR' ||
55 ' WHERE DEMAND_SOURCE_TYPE_ID IN (2,8)' ||
56 ' AND NVL(DEMAND_SOURCE_HEADER_ID, 0) = 0' ||
57 ' AND SUPPLY_SOURCE_TYPE_ID = 13 ';
58
59 dummy_num := JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Reservation details with DEMAND_SOURCE_HEADER_ID as 0');
60
61 sqltxt := ' SELECT MD.DEMAND_ID DEMD_ID,' ||
62 ' MD.DEMAND_SOURCE_LINE ORDER_LINE_ID,' ||
63 ' MD.INVENTORY_ITEM_ID ITEM_ID,' ||
64 ' MD.ORGANIZATION_ID ORG_ID,' ||
65 ' MD.PRIMARY_UOM_QUANTITY PDEMD_QTY' ||
66 ' FROM MTL_DEMAND MD' ||
67 ' WHERE DEMAND_SOURCE_TYPE IN (2,8)' ||
68 ' AND NVL(DEMAND_SOURCE_HEADER_ID, 0) = 0' ||
69 ' AND NVL(SUPPLY_SOURCE_TYPE, 13) = 13 ';
70
71 dummy_num := JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Demand details with DEMAND_SOURCE_HEADER_ID as 0');
72
73 reportStr := 'The test completed as expected';
74 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
75 statusStr := 'SUCCESS';
76 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
77 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
78
79 EXCEPTION
80 WHEN OTHERS THEN
81 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
82 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
83 statusStr := 'FAILURE';
84 errStr := sqlerrm ||' occurred in script Exception handled';
85 fixInfo := 'Unexpected Exception in INVDP02B.pls';
86 isFatal := 'FALSE';
87 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
88 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
89 END runTest;
90
91 ------------------------------------------------------------
92 -- procedure to report name back to framework
93 ------------------------------------------------------------
94 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
95 BEGIN
96 name := 'Pick Release and Reservation';
97 END getComponentName;
98
99 ------------------------------------------------------------
100 -- procedure to report test description back to framework
101 ------------------------------------------------------------
102 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
103 BEGIN
104 descStr := 'Details of Reservation with DEMAND_SOURCE_HEADER_ID as 0';
105 END getTestDesc;
106
107 ------------------------------------------------------------
108 -- procedure to report test name back to framework
109 ------------------------------------------------------------
110 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
111 BEGIN
112 name := 'Reservations with HDR zero';
113 END getTestName;
114
115 ------------------------------------------------------------
116 -- procedure to provide the default parameters for the test case.
117 -- please note the paramters have to be registered through the UI
118 -- before basic tests can be run.
119 --
120 ------------------------------------------------------------
121 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
122 tempInput JTF_DIAG_INPUTTBL;
123 BEGIN
124 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
125 EXCEPTION
126 when others then
127 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
128 END getDefaultTestParams;
129
130 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
131 tempDependencies JTF_DIAG_DEPENDTBL;
132
133 BEGIN
134 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
135 END getDependencies;
136
137 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
138 BEGIN
139 str := 'FALSE';
140 END isDependencyPipelined;
141
142 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
143 tempOutput JTF_DIAG_OUTPUTTBL;
144 BEGIN
145 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
146 outputValues := tempOutput;
147 EXCEPTION
148 when others then
149 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
150 END getOutputValues;
151
152 Function getTestMode return INTEGER IS
153 BEGIN
154 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
155
156 END getTestMode;
157
158 END INV_DIAG_RSV_HDR_ZERO;