PACKAGE BODY: APPS.INV_DIAG_OH_STATUS_CONTROL

Source

1 package body INV_DIAG_OH_STATUS_CONTROL as
2 /* $Header: INVDOH3B.pls 120.0.12010000.1 2009/03/18 09:27:35 aambulka noship $ */
3 
4 PROCEDURE init is
5 BEGIN
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  reportStr   LONG;           -- REPORT
19  sqltxt    VARCHAR2(9999);  -- SQL select statement
20  c_username  VARCHAR2(50);   -- accept input for username
21  statusStr   VARCHAR2(50);   -- SUCCESS or FAILURE
22  errStr      VARCHAR2(4000); -- error message
23  fixInfo     VARCHAR2(4000); -- fix tip
24  isFatal     VARCHAR2(50);   -- TRUE or FALSE
25  dummy_num   NUMBER;
26  row_limit   NUMBER;
27  l_org_id    NUMBER;
28 
29 BEGIN
30   JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
31   JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
32   JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
33 
34   l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
35 
36   sqltxt := ' SELECT mtsv.status_code' ||
37             ' || '' (''' ||
38             ' ||mtsv.status_id' ||
39             ' ||'')'' "StatusCode(Id)" ,' ||
40             ' DECODE(onhand_control,1,''Yes'',''No'') "OnhandStatusControl"' ||
41             ' FROM   mtl_material_statuses_vl mtsv' ||
42             ' WHERE  mtsv.onhand_control = 2' ||
43             ' AND EXISTS' ||
44             ' (SELECT 1' ||
45             ' FROM    mtl_parameters' ||
46             ' WHERE   default_status_id IS NOT NULL' ||
47             ' AND rownum < 2' ||
48             ' ) ';
49 
50 
51    dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'Statuses with Onhand control as No when any of the organization is onhand status enabled');
52 
53    reportStr := 'The test completed as expected';
54    JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
55    statusStr := 'SUCCESS';
56    report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
57    reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
58 
59 EXCEPTION
60   when others then
61     JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
62     JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
63     statusStr := 'FAILURE';
64     errStr := sqlerrm ||' occurred in script Exception handled';
65     fixInfo := 'Unexpected Exception in INVDOH3B.pls';
66     isFatal := 'FALSE';
67     report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
68     reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
69 END runTest;
70 
71 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
72 BEGIN
73    name := 'MATSTATUS';
74 END getComponentName;
75 
76 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
77 BEGIN
78    descStr := 'Statuses with Onhand control as No when any of the organization is onhand status enabled';
79 END getTestDesc;
80 
81 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
82 BEGIN
83    name := 'Onhand Status Control';
84 END getTestName;
85 
86 
87 PROCEDURE getDependencies (package_names OUT NOCOPY  JTF_DIAG_DEPENDTBL) IS
88 tempDependencies JTF_DIAG_DEPENDTBL;
89 
90 BEGIN
91     package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
92 END getDependencies;
93 
94 PROCEDURE isDependencyPipelined (str OUT NOCOPY  VARCHAR2) IS
95 BEGIN
96   str := 'FALSE';
97 END isDependencyPipelined;
98 
99 PROCEDURE getOutputValues(outputValues OUT NOCOPY  JTF_DIAG_OUTPUTTBL) IS
100   tempOutput JTF_DIAG_OUTPUTTBL;
101 BEGIN
102   tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
103   outputValues := tempOutput;
104 EXCEPTION
105  when others then
106  outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
107 END getOutputValues;
108 
109 
110 /*PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY  JTF_DIAG_INPUTTBL) IS
111 tempInput JTF_DIAG_INPUTTBL;
112 BEGIN
113   tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
114   tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
115   defaultInputValues := tempInput;
116 
117 EXCEPTION
118 when others then
119   defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
120 END getDefaultTestParams;*/
121 
122 Function getTestMode return INTEGER IS
123 BEGIN
124  return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
125 END getTestMode;
126 END INV_DIAG_OH_STATUS_CONTROL;