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