[Home] [Help]
PACKAGE BODY: APPS.INV_DIAG_MUT
Source
1 package body INV_DIAG_MUT as
2 /* $Header: INVDT04B.pls 120.0.12000000.1 2007/06/22 01:29:15 musinha noship $ */
3 PROCEDURE init is
4 BEGIN
5 -- test writer
6 null;
7 END init;
8
9 PROCEDURE cleanup IS
10 BEGIN
11 -- test writer could insert special cleanup code here
12 NULL;
13 END cleanup;
14
15 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
16 report OUT NOCOPY JTF_DIAG_REPORT,
17 reportClob OUT NOCOPY CLOB) IS
18
19 reportStr LONG;
20 counter NUMBER;
21 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
22 c_userid VARCHAR2(50);
23 statusStr VARCHAR2(50);
24 errStr VARCHAR2(4000);
25 fixInfo VARCHAR2(4000);
26 isFatal VARCHAR2(50);
27 dummy_num NUMBER;
28 sqltxt VARCHAR2 (2000);
29 l_sn VARCHAR2(30);
30 l_org_id NUMBER;
31 l_org_code VARCHAR2(3);
32 l_txn_id NUMBER;
33
34 cursor c_mut is
35 select serial_number, org_id
36 from inv_diag_msn_temp;
37
38
39 BEGIN
40 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
41 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
42 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
43
44 for x in c_mut
45 loop
46 l_sn :=x.serial_number;
47 l_org_id :=x.org_id;
48
49 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,'MUT of Serial_number '||l_sn);
50 sqltxt := 'select transaction_id '||
51 ', transaction_date '||
52 ', status_id '||
53 ', subinventory_code '||
54 ', locator_id '||
55 ', inventory_item_id '||
56 ', organization_id '||
57 ', transaction_source_id '||
58 ', transaction_source_type_id '||
59 ', ship_id '||
60 ' from mtl_unit_transactions '||
61 ' where serial_number = '''||l_sn||'''';
62
63 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Mtl Unit Transactions');
64
65 end loop;
66
67 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
68 statusStr := 'SUCCESS';
69 test_out := 'MUT';
70 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
71 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
72
73 EXCEPTION
74 when others then
75 -- this should never happen
76 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('Exception Occurred In RUNTEST');
77 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
78 raise;
79
80 END runTest;
81
82 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
83 BEGIN
84 name := 'Serial Transaction History';
85 END getComponentName;
86
87 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
88 BEGIN
89 descStr := 'Serial Transaction History recorded in MUT';
90 END getTestDesc;
91
92 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
93 BEGIN
94 name := 'MUT test';
95 END getTestName;
96
97 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
98 tempDependencies JTF_DIAG_DEPENDTBL;
99
100 BEGIN
101 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
102 END getDependencies;
103
104 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
105 BEGIN
106 str := 'FALSE';
107 END isDependencyPipelined;
108
109 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
110 tempOutput JTF_DIAG_OUTPUTTBL;
111 BEGIN
112 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
113 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.addOutput(tempOutput,'testout', test_out);
114 outputValues := tempOutput;
115 EXCEPTION
116 when others then
117 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
118 END getOutputValues;
119
120 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
121 tempInput JTF_DIAG_INPUTTBL;
122 BEGIN
123 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
124 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
125 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'ItemId','LOV-oracle.apps.inv.diag.lov.ItemLov');
126 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'SerialNum','LOV-oracle.apps.inv.diag.lov.SerialLov');
127 -- tempInput := JTF_DIAGNOSTIC_
128 defaultInputValues := tempInput;
129 EXCEPTION
130 when others then
131 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
132 END getDefaultTestParams;
133
134 Function getTestMode return INTEGER IS
135 BEGIN
136 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
137
138 END getTestMode;
139
140 END;