1 PACKAGE BODY INV_DIAG_RCV AS
2 /* $Header: INVDR01B.pls 120.0.12000000.1 2007/06/22 01:21:15 musinha noship $ */
3 ------------------------------------------------------------
4 -- procedure to report test name back to framework
5 ------------------------------------------------------------
6 PROCEDURE getTestName(str OUT NOCOPY VARCHAR2) IS
7 BEGIN
8 str := 'Dump of RCVTXN';
9 END getTestName;
10
11 ------------------------------------------------------------
12 -- procedure to report name back to framework
13 ------------------------------------------------------------
14 PROCEDURE getComponentName(str OUT NOCOPY VARCHAR2) IS
15 BEGIN
16 str := 'Dump of RCVTXN';
17 END getComponentName;
18
19 ------------------------------------------------------------
20 -- procedure to report test description back to framework
21 ------------------------------------------------------------
22 PROCEDURE getTestDesc(str OUT NOCOPY VARCHAR2) IS
23 BEGIN
24 str := 'Dump of RCV Transactions';
25 END getTestDesc;
26
27
28 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
29 BEGIN
30 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
31 -- str := 'null';
32 END getDependencies;
33
34 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
35 BEGIN
36 str := 'FALSE';
37 END isDependencyPipelined;
38
39
40 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
41 tempOutput JTF_DIAG_OUTPUTTBL;
42 BEGIN
43 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
44 END getOutputValues;
45
46
47 ------------------------------------------------------------
48 -- procedure to provide/populate the default parameters for the test case.
49 ------------------------------------------------------------
50 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
51 tempInput JTF_DIAG_INPUTTBL;
52 BEGIN
53 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
54 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
55 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'ItemId','LOV-oracle.apps.inv.diag.lov.ItemLov');
56 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'TableName','LOV-oracle.apps.inv.diag.lov.TxnTablesLov');
57 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'TransactionId','');
58 defaultInputValues := tempInput;
59 --EXCEPTION
60 --when others then
61 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
62 END getDefaultTestParams;
63
64 ------------------------------------------------------------
65 -- procedure to report test mode back to the framework
66 ------------------------------------------------------------
67 FUNCTION getTestMode RETURN NUMBER IS
68 BEGIN
69 return(2);
70 END getTestMode;
71
72
73 ------------------------------------------------------------
74 -- procedure to initialize test datastructures
75 -- executes prior to test run
76 ------------------------------------------------------------
77 PROCEDURE init IS
78 BEGIN
79 -- test writer could insert special setup code here
80 null;
81 END init;
82
83 ------------------------------------------------------------
84 -- procedure to cleanup any test datastructures that were setup in the init
85 -- procedure call executes after test run
86 ------------------------------------------------------------
87 PROCEDURE cleanup IS
88 BEGIN
89 -- test writer could insert special cleanup code here
90 NULL;
91 END cleanup;
92
93 ------------------------------------------------------------
94 -- procedure to execute the PLSQL test
95 -- the inputs needed for the test are passed in and a report object and CLOB are -- returned.
96 ------------------------------------------------------------
97 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
98 report OUT NOCOPY JTF_DIAG_REPORT,
99 reportClob OUT NOCOPY CLOB) IS
100 reportStr LONG; -- REPORT
101 sql_text VARCHAR2(200); -- SQL select statement
102 c_username VARCHAR2(50); -- accept input for username
103 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
104 errStr VARCHAR2(4000); -- error message
105 fixInfo VARCHAR2(4000); -- fix tip
106 isFatal VARCHAR2(50); -- TRUE or FALSE
107 row_limit NUMBER;
108 l_txn_id NUMBER;
109 l_org_id NUMBER;
110 l_item_id NUMBER;
111 l_sn VARCHAR2(30);
112 l_lot VARCHAR2(30);
113 l_script varchar2(30);
114 l_proc_flag varchar2(1);
115 BEGIN
116 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
117 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
118 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
119 -- accept input
120 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
121 l_txn_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('TransactionId',inputs);
122 l_item_id :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('ItemId',inputs);
123 l_script :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('TableName',inputs);
124 l_proc_flag :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('ProcFlag',inputs);
125 l_sn := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('SerialNum',inputs);
126 l_lot := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('LotNum',inputs);
127
128 row_limit :=INV_DIAG_GRP.g_max_row;
129
130 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('OrgID input :'||l_org_id||' Table name '||l_script);
131 JTF_DIAGNOSTIC_COREAPI.BRPrint;
132
133 statusStr := 'SUCCESS';
134 isFatal := 'FALSE';
135 -- construct report
136 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
137 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
138
139 END runTest;
140
141 END INV_DIAG_RCV;
[Home] [Help]