34: l_industry VARCHAR2 (1);
35: l_oracle_schema VARCHAR2 (30);
36:
37: BEGIN
38: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
39: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
40: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
41:
42: /*Initializing local vars */
35: l_oracle_schema VARCHAR2 (30);
36:
37: BEGIN
38: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
39: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
40: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
41:
42: /*Initializing local vars */
43: row_limit :=1000; /* Set Row Limit to 1000 (i.e.) Max Number of records to be fetched by each sql*/
43: row_limit :=1000; /* Set Row Limit to 1000 (i.e.) Max Number of records to be fetched by each sql*/
44: l_org_exists :=0; /* Initialize to zero */
45:
46: -- accept input
47: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
48: l_eco_name := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('ChangeNotice', inputs);
49:
50: /* l_org_id is NOT a mandatory input. If it is not entered, then run the scripts for all orgs.
51: However if a value is entered for org_id, then validate it for existence. */
44: l_org_exists :=0; /* Initialize to zero */
45:
46: -- accept input
47: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
48: l_eco_name := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('ChangeNotice', inputs);
49:
50: /* l_org_id is NOT a mandatory input. If it is not entered, then run the scripts for all orgs.
51: However if a value is entered for org_id, then validate it for existence. */
52:
64: isFatal := 'TRUE';
65: fixInfo := ' Please review the error message below and take corrective action. ';
66: errStr := ' Invalid value for input field Organization Id ';
67:
68: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
69: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
70: End;
71:
72: If l_org_exists=0 Then
65: fixInfo := ' Please review the error message below and take corrective action. ';
66: errStr := ' Invalid value for input field Organization Id ';
67:
68: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
69: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
70: End;
71:
72: If l_org_exists=0 Then
73: Return;
82: isFatal := 'TRUE';
83: fixInfo := ' Please review the error message below and take corrective action. ';
84: errStr :=' Invalid value for input field ECO Name. It is a mandatory input. ';
85:
86: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
87: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
88: Return;
89:
90: Else /*Validate if the input eco/mco name exists */
83: fixInfo := ' Please review the error message below and take corrective action. ';
84: errStr :=' Invalid value for input field ECO Name. It is a mandatory input. ';
85:
86: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
87: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
88: Return;
89:
90: Else /*Validate if the input eco/mco name exists */
91: l_eco_exists := 0;
129: isFatal := 'TRUE';
130: fixInfo := ' Please review the error message below and take corrective action. ';
131: errStr := ' Invalid values for input fields ECO Name and/or Organization Id. ';
132:
133: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
134: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
135: Return;
136:
137: Elsif l_eco_exists =1 Then /* run the scripts if the ECO is exists */
130: fixInfo := ' Please review the error message below and take corrective action. ';
131: errStr := ' Invalid values for input fields ECO Name and/or Organization Id. ';
132:
133: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
134: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
135: Return;
136:
137: Elsif l_eco_exists =1 Then /* run the scripts if the ECO is exists */
138:
1611: /* End of SQL to fetch use_up details of revised items*/
1612:
1613: <
1614: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This data collection script completed as expected
');
1615: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1616: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1617:
1618: Elsif l_mco_exists =1 Then /* run these scripts if the MCO is exists */
1619:
1612:
1613: <
1614: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This data collection script completed as expected
');
1615: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1616: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1617:
1618: Elsif l_mco_exists =1 Then /* run these scripts if the MCO is exists */
1619:
1620: /* SQL to fetch mass change order details */
1805: /* End of SQL to fetch component changes on mass change orders */
1806:
1807: <
1808: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This data collection script completed as expected
');
1809: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1810: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1811:
1812: End If; /* if l_eco_exists != 0 or l_mco_exists !=0 */
1813:
1806:
1807: <
1808: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This data collection script completed as expected
');
1809: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1810: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1811:
1812: End If; /* if l_eco_exists != 0 or l_mco_exists !=0 */
1813:
1814: End If; /* if l_eco_name is not null */
1820: statusStr := 'FAILURE';
1821: errStr := sqlerrm ||' occurred in script. ';
1822: fixInfo := 'Unexpected Exception in BOMDGCNB.pls';
1823: isFatal := 'FALSE';
1824: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1825: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1826: END runTest;
1827:
1828: PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
1821: errStr := sqlerrm ||' occurred in script. ';
1822: fixInfo := 'Unexpected Exception in BOMDGCNB.pls';
1823: isFatal := 'FALSE';
1824: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
1825: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
1826: END runTest;
1827:
1828: PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
1829: BEGIN
1844: PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
1845: tempDependencies JTF_DIAG_DEPENDTBL;
1846:
1847: BEGIN
1848: package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
1849: END getDependencies;
1850:
1851: PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
1852: BEGIN
1856:
1857: PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
1858: tempOutput JTF_DIAG_OUTPUTTBL;
1859: BEGIN
1860: tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
1861: outputValues := tempOutput;
1862: EXCEPTION
1863: when others then
1864: outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
1860: tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
1861: outputValues := tempOutput;
1862: EXCEPTION
1863: when others then
1864: outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
1865: END getOutputValues;
1866:
1867:
1868: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
1867:
1868: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
1869: tempInput JTF_DIAG_INPUTTBL;
1870: BEGIN
1871: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
1872: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'ChangeNotice','LOV-oracle.apps.bom.diag.lov.ECOLov'); -- Lov name modified to ChangeNotice for bug 6412260
1873: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov'); -- Lov name modified to OrgId for bug 6412260
1874: defaultInputValues := tempInput;
1875: EXCEPTION
1868: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
1869: tempInput JTF_DIAG_INPUTTBL;
1870: BEGIN
1871: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
1872: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'ChangeNotice','LOV-oracle.apps.bom.diag.lov.ECOLov'); -- Lov name modified to ChangeNotice for bug 6412260
1873: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov'); -- Lov name modified to OrgId for bug 6412260
1874: defaultInputValues := tempInput;
1875: EXCEPTION
1876: when others then
1869: tempInput JTF_DIAG_INPUTTBL;
1870: BEGIN
1871: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
1872: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'ChangeNotice','LOV-oracle.apps.bom.diag.lov.ECOLov'); -- Lov name modified to ChangeNotice for bug 6412260
1873: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov'); -- Lov name modified to OrgId for bug 6412260
1874: defaultInputValues := tempInput;
1875: EXCEPTION
1876: when others then
1877: defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
1873: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov'); -- Lov name modified to OrgId for bug 6412260
1874: defaultInputValues := tempInput;
1875: EXCEPTION
1876: when others then
1877: defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
1878: END getDefaultTestParams;
1879:
1880: Function getTestMode return INTEGER IS
1881: BEGIN
1878: END getDefaultTestParams;
1879:
1880: Function getTestMode return INTEGER IS
1881: BEGIN
1882: return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
1883:
1884: END getTestMode;
1885:
1886: END BOM_DIAGUNITTEST_ECODATA;