[Home] [Help]
PACKAGE BODY: APPS.INV_DIAG_SO_MSO_MCH
Source
1 package body INV_DIAG_SO_MSO_MCH as
2 /* $Header: INVDP01B.pls 120.0.12000000.1 2007/06/22 01:11:50 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 l_order_number NUMBER;
31 l_org_id NUMBER;
32 l_resp fnd_responsibility_tl.Responsibility_Name%type :='Inventory';
33
34 BEGIN
35
36 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
37 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
38 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
39 --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
40
41 /*
42 -- check whether user has 'Inventory' responsibilty to execute diagnostics script.
43 IF NOT INV_DIAG_GRP.check_responsibility(p_responsibility_name => l_resp) THEN -- l_resp = 'Inventory'
44 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(' You do not have the privilege to run this Diagnostics.');
45 statusStr := 'FAILURE';
46 errStr := 'This test requires Inventory Responsibility Role';
47 fixInfo := 'Please contact your sysadmin to get Inventory Responsibility';
48 isFatal := 'FALSE';
49 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
50 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
51 RETURN;
52 END IF;
53 */
54
55 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
56 l_order_number := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrderNo',inputs);
57
58 IF l_org_id IS NULL OR l_order_number IS NULL THEN
59 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,'Please execute the report with organization and Sales order information');
60 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '|| 'Invalid Organization or Sales Order ');
61 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter correct organization and Sales Order Number');
62 statusStr := 'FAILURE';
63 errStr := 'Invalid Organization Sales Order Combination';
64 fixInfo := 'Please enter Organization and Sales Order information';
65 isFatal := 'FALSE';
66 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
67 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
68 RETURN;
69 END IF;
70
71 FND_CLIENT_INFO.SET_ORG_CONTEXT('' || l_org_id || '');
72
73 sqltxt := ' select FND_PROFILE.value(''OE_SOURCE_CODE'') "OE_SOURCE_CODE" from dual ';
74
75 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Profile (OE_SROUCE_CODE) value');
76
77 sqltxt := ' select segment1 "Segment 1",segment2 "Segment 2",segment3 "Segment 3",sales_order_id "Sales Order Id"' ||
78 ' from mtl_sales_orders ' ||
79 ' where segment1=' || '''' || l_order_number || '''';
80
81 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Segments value for the sales order ');
82
83 sqltxt := ' SELECT order_number,' ||
84 ' NAME || ''('' || order_type_id || '')'' "Order Type (ID)", ' ||
85 ' FND_PROFILE.VALUE(''ONT_SOURCE_CODE'') "Order Source"' ||
86 ' FROM oe_order_headers oeh,OE_TRANSACTION_TYPES_TL OTT' ||
87 ' WHERE order_number = ' || l_order_number ||
88 ' AND ott.TRANSACTION_TYPE_ID = oeh.order_type_id' ||
89 ' AND language = (select language_code from' ||
90 ' fnd_languages' ||
91 ' where installed_flag = ''B'') ';
92
93 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Details of Sales Order');
94
95 reportStr := 'The test completed as expected';
96 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
97 statusStr := 'SUCCESS';
98 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
99 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
100
101 EXCEPTION
102 when others then
103 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
104 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
105 statusStr := 'FAILURE';
106 errStr := sqlerrm ||' occurred in script INVDP01B.pls Exception handled';
107 fixInfo := 'Unexpected Exception in INVDP01B.pls';
108 isFatal := 'FALSE';
109 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
110 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
111 END runTest;
112
113
114 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
115 BEGIN
116 name := 'Pick Release and Reservation';
117 END getComponentName;
118
119 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
120 BEGIN
121 descStr := 'Sales Order MSO mismatch';
122 END getTestDesc;
123
124 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
125 BEGIN
126 name := 'Sales Order Identifier Information';
127 END getTestName;
128
129 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
130 tempDependencies JTF_DIAG_DEPENDTBL;
131
132 BEGIN
133 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
134 END getDependencies;
135
136 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
137 BEGIN
138 str := 'FALSE';
139 END isDependencyPipelined;
140
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 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
153 tempInput JTF_DIAG_INPUTTBL;
154 BEGIN
155 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
156 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
157 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrderNo','LOV-oracle.apps.inv.diag.lov.SOLov');
158 defaultInputValues := tempInput;
159 EXCEPTION
160 when others then
161 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
162 END getDefaultTestParams;
163
164 Function getTestMode return INTEGER IS
165 BEGIN
166 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
167
168 END getTestMode;
169
170 END INV_DIAG_SO_MSO_MCH;