[Home] [Help]
PACKAGE BODY: APPS.CSM_SETUP_JTMCONC
Source
1 PACKAGE BODY CSM_SETUP_JTMCONC AS
2 /* $Header: csmdjcrb.pls 120.1 2005/07/22 04:52:58 trajasek noship $ */
3 --
4 -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5 -- directory of SQL Navigator
6 --
7 -- Purpose: Briefly explain the functionality of the package body
8 --
9 -- MODIFICATION HISTORY
10 -- Person Date Comments
11 -- --------- ------ ------------------------------------------
12 -- Enter procedure, function bodies as shown below
13
14 ------------------------------------------------------------
15 -- procedure to initialize test datastructures
16 -- executeds prior to test run (not currently being called)
17 ------------------------------------------------------------
18 PROCEDURE init IS
19 BEGIN
20 -- test writer could insert special setup code here
21 null;
22 END init;
23
24 ------------------------------------------------------------
25 -- procedure to cleanup any test datastructures that were setup in the init
26 -- procedure call executes after test run (not currently being called)
27 ------------------------------------------------------------
28 PROCEDURE cleanup IS
29 BEGIN
30 -- test writer could insert special cleanup code here
31 NULL;
32 END cleanup;
33
34 ------------------------------------------------------------
35 -- procedure to execute the PLSQL test
36 -- the inputs needed for the test are passed in and a report object and CLOB are -- returned.
37 ------------------------------------------------------------
38 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
39 report OUT NOCOPY JTF_DIAG_REPORT,
40 reportClob OUT NOCOPY CLOB) IS
41 reportStr LONG;
42 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
43 errStr VARCHAR2(4000);
44 fixInfo VARCHAR2(4000);
45 isFatal VARCHAR2(50); -- TRUE or FALSE
46 concExists VARCHAR2(1) ;
47
48 TYPE concRec IS RECORD (packageName varchar2 (30),
49 procedureName varchar2(30)) ;
50
51 TYPE concTab IS TABLE OF concRec INDEX BY BINARY_INTEGER;
52 concTable concTab ;
53 BEGIN
54 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars(reportClob);
55
56 concTable(1).packageName := 'CSM_BUS_PROCESS_TXNS_EVENT_PKG' ;
57 concTable(1).procedureName := 'REFRESH_ACC' ;
58
59 concTable(2).packageName := 'CSM_CURRENCY_EVENT_PKG' ;
60 concTable(2).procedureName := 'REFRESH_ACC' ;
61
62 concTable(3).packageName := 'CSM_LOOKUP_EVENT_PKG' ;
63 concTable(3).procedureName := 'REFRESH_ACC' ;
64
65 concTable(4).packageName := 'CSM_MESSAGES_EVENT_PKG' ;
66 concTable(4).procedureName := 'REFRESH_ACC' ;
67
68 concTable(5).packageName := 'CSM_PROFILE_EVENT_PKG' ;
69 concTable(5).procedureName := 'REFRESH_ACC' ;
70
71 concTable(6).packageName := 'CSM_SYSTEM_ITEM_EVENT_PKG' ;
72 concTable(6).procedureName := 'REFRESH_ACC' ;
73
74 concTable(7).packageName := 'CSM_SYSTEM_ITEM_EVENT_PKG' ;
75 concTable(7).procedureName := 'REFRESH_MTL_ONHAND_QUANTITY' ;
76
77 concTable(8).packageName := 'CSM_TXN_BILL_TYPES_EVENT_PKG' ;
78 concTable(8).procedureName := 'REFRESH_ACC' ;
79
80 concTable(9).packageName := 'CSM_UOM_EVENT_PKG' ;
81 concTable(9).procedureName := 'REFRESH_ACC' ;
82
83 concTable(10).packageName := 'CSM_UTIL_PKG' ;
84 concTable(10).procedureName := 'REFRESH_ALL_APP_LEVEL_ACC' ;
85
86 concTable(11).packageName := 'CSM_TASK_ASSIGNMENT_EVENT_PKG' ;
87 concTable(11).procedureName := 'PURGE_TASK_ASSIGNMENTS_CONC' ;
88
89 concTable(12).packageName := 'CSM_STATE_TRANSITION_EVENT_PKG' ;
90 concTable(12).procedureName := 'REFRESH_ACC' ;
91
92 concTable(13).packageName := 'CSM_SR_EVENT_PKG' ;
93 concTable(13).procedureName := 'PURGE_INCIDENTS_CONC' ;
94
95 concTable(14).packageName := 'CSM_TASK_EVENT_PKG' ;
96 concTable(14).procedureName := 'PURGE_TASKS_CONC' ;
97
98 concTable(15).packageName := 'CSM_MTL_SYSTEM_ITEMS_EVENT_PKG' ;
99 concTable(15).procedureName := 'REFRESH_MTL_SYSTEM_ITEMS_ACC' ;
100
101 concTable(16).packageName := 'CSM_MTL_TXN_REASONS_EVENT_PKG' ;
102 concTable(16).procedureName := 'REFRESH_MTL_TXN_REASONS_ACC' ;
103
104 concTable(17).packageName := 'CSM_MTL_ITEM_SUBINV_EVENT_PKG' ;
105 concTable(17).procedureName := 'REFRESH_ACC' ;
106
107 concTable(18).packageName := 'CSM_SERIAL_NUMBERS_EVENT_PKG' ;
108 concTable(18).procedureName := 'REFRESH_MTL_SERIAL_NUMBERS_ACC' ;
109
110 concTable(19).packageName := 'CSM_MTL_SEC_INV_EVENT_PKG' ;
111 concTable(19).procedureName := 'REFRESH_ACC' ;
112
113 concTable(20).packageName := 'CSM_SERVICE_HISTORY_EVENT_PKG' ;
114 concTable(20).procedureName := 'CONCURRENT_HISTORY' ;
115
116 FOR i IN 1..concTable.COUNT LOOP
117 BEGIN
118 select 'Y'
119 into concExists
120 from jtm_con_request_data
121 where package_name = concTable(i).packageName
122 and procedure_name = concTable(i).procedureName
123 and execute_flag = 'Y'
124 and product_code = 'CSM' ;
125 EXCEPTION
126 WHEN NO_DATA_FOUND THEN
127 concExists := 'N' ;
128 END ;
129
130 IF (concExists = 'Y') THEN
131 if reportStr is null then
132 reportStr := 'In JTM Common Concurrent Program registered APIs are ' || concTable(i).packageName || '.' || concTable(i).procedureName ;
133 else
134 reportStr := ', ' || concTable(i).packageName || '.' || concTable(i).procedureName ;
135 end if ;
136 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
137 if statusStr is null or statusStr = 'SUCCESS' then
138 statusStr := 'SUCCESS';
139 end if ;
140 ELSE
141 statusStr := 'FAILURE';
142 if errStr is null then
143 errStr := errStr || 'In JTM Common Concurrent Program not registered APIs are ' || concTable(i).packageName || '.' || concTable(i).procedureName ;
144 else
145 errStr := errStr || ', ' || concTable(i).packageName || '.' || concTable(i).procedureName ;
146 end if ;
147 fixInfo := 'Apply latest patch then call support (if not fixed).' ;
148 isFatal := 'FALSE';
149 END IF;
150 END LOOP ;
151 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
152 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob ;
153 END runTest;
154
155 ------------------------------------------------------------
156 -- procedure to report name back to framework
157 ------------------------------------------------------------
158 PROCEDURE getComponentName(str OUT NOCOPY VARCHAR2) IS
159 BEGIN
160 str := 'JTM Common Concurrent Program Registration Status';
161 END getComponentName;
162
163 ------------------------------------------------------------
164 -- procedure to report test description back to framework
165 ------------------------------------------------------------
166 PROCEDURE getTestDesc(str OUT NOCOPY VARCHAR2) IS
167 BEGIN
168 str := 'JTM Common Concurrent Program Registration';
169 END getTestDesc;
170
171 ------------------------------------------------------------
172 -- procedure to report test name back to framework
173 ------------------------------------------------------------
174 PROCEDURE getTestName(str OUT NOCOPY VARCHAR2) IS
175 BEGIN
176 str := 'Check JTM Concurrent Program Registration';
177 END getTestName;
178 -- Enter further code below as specified in the Package spec.
179 END;