[Home] [Help]
PACKAGE BODY: APPS.INV_DIAG_OH_CG_MCH
Source
1 package body INV_DIAG_OH_CG_MCH as
2 /* $Header: INVDO07B.pls 120.0.12000000.1 2007/06/22 01:06:01 musinha 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 BEGIN
31
32 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
33 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
34 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
35 --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
36
37
38
39 sqltxt := ' select ' ||
40 ' mp.organization_code|| '' (''||moqd.organization_id ||'')'' "Organization|Code (Id)"' ||
41 ' ,mif.item_number|| '' (''||moqd.inventory_item_id||'')'' "Item (Id)",' ||
42 ' mil.project_id "Proj Id",' ||
43 ' mil.segment19 "Segment 19",' ||
44 ' moqd.subinventory_code "subinv",' ||
45 ' moqd.locator_id "Locator",' ||
46 ' moqd.cost_group_id "Cost group id",' ||
47 ' mproj.costing_group_id "Proj cost group id"' ||
48 ' from mtl_onhand_quantities_detail moqd,' ||
49 ' mtl_parameters mp,' ||
50 ' mtl_item_flexfields mif,' ||
51 ' mtl_item_locations_kfv mil,' ||
52 ' mrp_project_parameters mproj' ||
53 ' where moqd.inventory_item_id=mif.inventory_item_id' ||
54 ' and moqd.organization_id=mif.organization_id' ||
55 ' and moqd.organization_id=mp.organization_id' ||
56 ' and moqd.organization_id=mil.organization_id' ||
57 ' and moqd.locator_id=mil.inventory_location_id' ||
58 ' and mil.project_id=mproj.project_id' ||
59 ' and mil.organization_id=mproj.organization_id ' ||
60 ' and mproj.costing_group_id <> moqd.cost_group_id ';
61
62 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Details of MOQD cost group mismatch.');
63
64 reportStr := 'The test completed as expected';
65 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
66 statusStr := 'SUCCESS';
67 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
68 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
69
70 EXCEPTION
71 when others then
72 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
73 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
74 statusStr := 'FAILURE';
75 errStr := sqlerrm ||' occurred in script Exception handled';
76 fixInfo := 'Unexpected Exception in INVDO07B.pls';
77 isFatal := 'FALSE';
78 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
79 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
80 END runTest;
81
82
83 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
84 BEGIN
85 name := 'Onhand';
86 END getComponentName;
87
88 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
89 BEGIN
90 descStr := 'Onhand Cost Group does not match with Project Mfg';
91 END getTestDesc;
92
93 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
94 BEGIN
95 name := 'Onhand CostGrp Mismatch for Project Mfg';
96 END getTestName;
97
98 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
99 tempDependencies JTF_DIAG_DEPENDTBL;
100
101 BEGIN
102 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
103 END getDependencies;
104
105 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
106 BEGIN
107 str := 'FALSE';
108 END isDependencyPipelined;
109
110
111 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
112 tempOutput JTF_DIAG_OUTPUTTBL;
113 BEGIN
114 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
115 outputValues := tempOutput;
116 EXCEPTION
117 when others then
118 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
119 END getOutputValues;
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 defaultInputValues := tempInput;
126 EXCEPTION
127 when others then
128 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
129 END getDefaultTestParams;
130
131 Function getTestMode return INTEGER IS
132 BEGIN
133 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
134 END getTestMode;
135
136 END INV_DIAG_OH_CG_MCH;