26: l_item_id NUMBER;
27: l_org_id NUMBER;
28: l_org_exists NUMBER;
29: BEGIN
30: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
31: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
32: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
33:
34: /* Set Row Limit to 1000 (i.e.) Max Number of records to be fetched by each sql*/
27: l_org_id NUMBER;
28: l_org_exists NUMBER;
29: BEGIN
30: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
31: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
32: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
33:
34: /* Set Row Limit to 1000 (i.e.) Max Number of records to be fetched by each sql*/
35: row_limit :=1000;
35: row_limit :=1000;
36: l_org_exists :=0; /* Initialize to zero */
37:
38: -- accept input
39: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
40:
41: /* l_org_id is NOT a mandatory input. If it is not entered, then run the scripts for all orgs.
42: However if a value is entered for org_id, then validate it for existence. */
43:
55: isFatal := 'TRUE';
56: fixInfo := ' Please review the error message below and take corrective action. ';
57: errStr := ' Invalid value for input field Organization Id ';
58:
59: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
60: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
61: End;
62: End If; /* End of l_org_id is not null */
63:
56: fixInfo := ' Please review the error message below and take corrective action. ';
57: errStr := ' Invalid value for input field Organization Id ';
58:
59: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
60: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
61: End;
62: End If; /* End of l_org_id is not null */
63:
64: If (l_org_id is null) or (l_org_exists = 1) Then
127: (3) Make sure that the total number of records deleted
128:
are same as the number of records fetched above.
129:
(4) Commit the transaction.
130:
';
131: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
132: End If; /* End of Impact and Action */
133:
134: statusStr := 'SUCCESS';
135: isFatal := 'FALSE';
135: isFatal := 'FALSE';
136:
137: <
138: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This Health Check test completed as expected
');
139: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
140: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
141: End If; /* End of l_org_id is null or l_org_exists=1 */
142:
143: EXCEPTION
136:
137: <
138: JTF_DIAGNOSTIC_COREAPI.Line_Out('
This Health Check test completed as expected
');
139: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
140: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
141: End If; /* End of l_org_id is null or l_org_exists=1 */
142:
143: EXCEPTION
144: when others then
147: statusStr := 'FAILURE';
148: errStr := sqlerrm ||' occurred in script. ';
149: fixInfo := 'Unexpected Exception in BOMDGRTB.pls';
150: isFatal := 'FALSE';
151: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
152: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
153: END runTest;
154:
155: PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
148: errStr := sqlerrm ||' occurred in script. ';
149: fixInfo := 'Unexpected Exception in BOMDGRTB.pls';
150: isFatal := 'FALSE';
151: report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
152: reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
153: END runTest;
154:
155: PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
156: BEGIN
172: PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
173: tempDependencies JTF_DIAG_DEPENDTBL;
174:
175: BEGIN
176: package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
177: END getDependencies;
178:
179: PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
180: BEGIN
184:
185: PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
186: tempOutput JTF_DIAG_OUTPUTTBL;
187: BEGIN
188: tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
189: outputValues := tempOutput;
190: EXCEPTION
191: when others then
192: outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
188: tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
189: outputValues := tempOutput;
190: EXCEPTION
191: when others then
192: outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
193: END getOutputValues;
194:
195:
196: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
195:
196: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
197: tempInput JTF_DIAG_INPUTTBL;
198: BEGIN
199: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
200: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov');-- Lov name modified to OrgId for bug 6412260
201: defaultInputValues := tempInput;
202: EXCEPTION
203: when others then
196: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
197: tempInput JTF_DIAG_INPUTTBL;
198: BEGIN
199: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
200: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov');-- Lov name modified to OrgId for bug 6412260
201: defaultInputValues := tempInput;
202: EXCEPTION
203: when others then
204: defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
200: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.bom.diag.lov.OrganizationLov');-- Lov name modified to OrgId for bug 6412260
201: defaultInputValues := tempInput;
202: EXCEPTION
203: when others then
204: defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
205: END getDefaultTestParams;
206:
207: Function getTestMode return INTEGER IS
208: BEGIN
205: END getDefaultTestParams;
206:
207: Function getTestMode return INTEGER IS
208: BEGIN
209: return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
210:
211: END getTestMode;
212:
213: END BOM_DIAGUNITTEST_RTGHLCHK;