1 PACKAGE BODY JMF_SUBCONTRCT_DIAG_INTERLOCK AS
2 /* $Header: JMFDSUBB.pls 120.0.12010000.2 2010/06/28 06:28:07 abhissri ship $ */
3
4 --+=======================================================================+
5 --| Copyright (c) 2005 Oracle Corporation |
6 --| Redwood Shores, CA, USA |
7 --| All rights reserved. |
8 --+=======================================================================+
9 --| FILENAME |
10 --| JMFDSUBB.pls |
11 --| |
12 --| DESCRIPTION |
13 --| Subcontracting Diagnostics Test : Package Specification |
14 --| |
15 --| FUNCTIONS/PROCEDURE |
16 --| init |
17 --| cleanup |
18 --| runtest |
19 --| getComponentName |
20 --| getTestDesc |
21 --| getTestName |
22 --| getDefaultTestParams |
23 --| HISTORY |
24 --| 20-DEC-2007 kdevadas Created |
25 --| |
26 --+=======================================================================+
27
28 --=============================================
29 -- GLOBALS
30 --=============================================
31
32 --=============================================
33 -- PROCEDURES AND FUNCTIONS
34 --=============================================
35
36 --========================================================================
37 -- PROCEDURE : init PUBLIC
38 -- PARAMETERS: NONE
39 -- COMMENT : This procedure is invoked by the diagnostics framework
40 -- to initialize test datastructures and executed prior to
41 -- the test run
42 --========================================================================
43 PROCEDURE init IS
44 BEGIN
45 -- test writer could insert special setup code here
46 NULL;
47 END init;
48
49
50 --========================================================================
51 -- PROCEDURE : cleanup PUBLIC
52 -- PARAMETERS: NONE
53 -- COMMENT : This procedure is invoked by the diagnostics framework to
54 -- cleanup any test datastructures that were setup in the init.
55 --========================================================================
56 PROCEDURE cleanup IS
57 BEGIN
58 -- test writer could insert special cleanup code here
59 NULL;
60 END cleanup;
61
62
63 --========================================================================
64 -- PROCEDURE : runtest PUBLIC
65 -- PARAMETERS: inputs Input for the test
66 -- report Test Report Output
67 -- reportClob Test Report Output
68 -- COMMENT : This procedure is invoked by the doagnostics framework to
69 -- execute the PLSQL test
70 --========================================================================
71 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
72 report OUT NOCOPY JTF_DIAG_REPORT,
73 reportClob OUT NOCOPY CLOB)
74 IS
75 reportStr LONG;
76 statusStr VARCHAR2(50);
77 errStr VARCHAR2(4000);
78 fixInfo VARCHAR2(4000);
79 isFatal VARCHAR2(50);
80 BEGIN
81 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
82 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
83 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
84
85 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS ;
86
87 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Profiles <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
88 THEN
89 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
90 END IF ;
91
92 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_WIP_Parameters <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
93 THEN
94 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
95 END IF;
96
97 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Accounting_Periods <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
98 THEN
99 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.g_status_failure;
100 END IF;
101
102 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Routings <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
103 THEN
104 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
105 END IF;
106
107 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Shipping_Network <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
108 THEN
109 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
110 END IF;
111
112 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Shipping_Methods <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
113 THEN
114 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
115 END IF;
116
117 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Cust_Supp_Association <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
118 THEN
119 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
120 END IF;
121
122 IF JMF_SUBCONTRCT_DIAG_UTIL.Check_Price_List <> JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS
123 THEN
124 statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
125 END IF;
126
127 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
128 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
129 END runTest;
130
131 --============================================================================
132 -- PROCEDURE : getComponentName PUBLIC
133 -- PARAMETERS: name Component Name
134 -- COMMENT : This procedure retuns the component name to the diagnostics fwk
135 --============================================================================
136 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
137 BEGIN
138 name := 'Subcontracting : Interlock Manager';
139 END getComponentName;
140
141 --=============================================================================
142 -- PROCEDURE : getComponentName PUBLIC
143 -- PARAMETERS: descStr Component Description
144 -- COMMENT : This procedure retuns the test description to the diagnostics fwk
145 --=============================================================================
146 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
147 BEGIN
148 descStr := 'Check for errors during the Interlock Manager run';
149 END getTestDesc;
150
151
152 --========================================================================
153 -- PROCEDURE : getTestName PUBLIC
154 -- PARAMETERS: descStr Test Description
155 -- COMMENT : This procedure retuns the test description to the diagnostics fwk
156 --========================================================================
157 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
158 BEGIN
159 name := 'Interlock Manager errors';
160 END getTestName;
161
162
163 --========================================================================
164 -- PROCEDURE : getComponentName PUBLIC
165 -- PARAMETERS: defaultInputValues Default Test Parameters
166 -- COMMENT : This procedure provides the default paramters for the test
167 --========================================================================
168 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
169 tempInput JTF_DIAG_INPUTTBL;
170 BEGIN
171 NULL;
172 END getDefaultTestParams;
173
174 END JMF_SUBCONTRCT_DIAG_INTERLOCK ;
[Home] [Help]