[Home] [Help]
PACKAGE BODY: APPS.INV_DIAG_ORG
Source
1 package body INV_DIAG_ORG as
2 /* $Header: INVDORGB.pls 120.0.12000000.1 2007/06/22 01:10:32 musinha noship $ */
3 PROCEDURE init is
4 BEGIN
5 -- test writer
6 null;
7 END init;
8
9 PROCEDURE cleanup IS
10 BEGIN
11 -- test writer could insert special cleanup code here
12 NULL;
13 END cleanup;
14
15 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
16 report OUT NOCOPY JTF_DIAG_REPORT,
17 reportClob OUT NOCOPY CLOB) IS
18
19 reportStr LONG;
20 counter NUMBER;
21 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
22 c_userid VARCHAR2(50);
23 statusStr VARCHAR2(50);
24 errStr VARCHAR2(4000);
25 fixInfo VARCHAR2(4000);
26 isFatal VARCHAR2(50);
27 dummy_num NUMBER;
28 sqltxt VARCHAR2 (9999);
29 l_org_id NUMBER;
30 l_org_code VARCHAR2(3);
31 l_txn_id NUMBER;
32
33 BEGIN
34
35 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
36 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
37 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
38 --JTF_DIAGNOSTIC_COREAPI.line_out('this also writes to the clob');
39 l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
40
41 INV_DIAG_GRP.g_inv_diag_item_tbl.delete;
42 INV_DIAG_GRP.g_inv_diag_item_tbl(1).org_id := l_org_id;
43
44 if l_org_id is not null then
45
46 sqltxt := 'SELECT mp.organization_code "Org Code" '||
47 ',mp.organization_id "Organization Id" '||
48 ',mpm.organization_code "Master Org Code" '||
49 ',mp.master_organization_id "Master Organization Id" '||
50 ',mpc.organization_code "Cost Org Code" '||
51 ',mp.cost_organization_id "Cost Organization Id" '||
52 ',mp.wms_enabled_flag "WMS Enabled" '||
53 ',DECODE(mp.negative_inv_receipt_code,1,''Yes'', ''No'') "Negative|Balances|Allowed" '||
54 ',DECODE(mp.serial_number_generation,1,''At organization level'', 2,''At item level'', 3,''User Defined'', '||
55 ' mp.serial_number_generation) "Serial Number|Generation" '||
56 ',DECODE(mp.lot_number_uniqueness,1,''Across items'', 2,''No uniqueness'', mp.lot_number_uniqueness) "Lot Number|Uniqueness" '||
57 ',DECODE(mp.lot_number_generation,1,''At organization level'', 2,''At item level'', 3,''User Defined'', '||
58 ' mp.lot_number_generation) "Lot Number Generation" '||
59 ',DECODE(mp.serial_number_type,1,''Unique within inventory model and items'', 2,''Unique within organization'', 3,''Unique across organizations'', '||
60 ' 4, ''Unique within inventory items'', mp.serial_number_type ) "Serial Number Type" '||
61 ',DECODE(mp.stock_locator_control_code,1,''None'', 2,''Prespecified'', 3,''Dynamic entry'', 4,''At subinventory level'', 5,''At item level'', '||
62 ' mp.stock_locator_control_code) "Locator|Control" '||
63 ',DECODE(mp.primary_cost_method,1,''Standard'', 2,''Average'', 3,''Periodic Average'',4,''Periodic Incremental LIFO'', 5,''FIFO'', 6,''LIFO'', mp.primary_cost_method) "Primary Cost Method" '||
64 ',mp.default_cost_group_id "Default Cost Group Id" '||
65 ',mp.wsm_enabled_flag "WSM Enabled" '||
66 ',mp.process_enabled_flag "Process Enabled" '||
67 ',DECODE( TO_CHAR( NVL(mp.project_reference_enabled, 2)),''1'', ''Yes'', ''2'', ''No'' , TO_CHAR( mp.project_reference_enabled ) )|| '' ('' ||mp.project_reference_enabled||'')'' "Project Reference Enabled" '||
68 ',mp.eam_enabled_flag "EAM|Enabled " '||
69 ',mp.consigned_flag "Consigned|VMI Stock" '||
70 'FROM mtl_parameters mp,mtl_parameters mpc '||
71 ' ,mtl_parameters mpm '||
72 'WHERE mp.cost_organization_id=mpc.organization_id '||
73 ' AND mp.master_organization_id=mpm.organization_id '||
74 ' AND mp.organization_id IN '||
75 ' ( SELECT organization_id '||
76 ' FROM mtl_parameters '||
77 ' WHERE organization_id = '||l_org_id||
78 ' UNION '||
79 ' SELECT master_organization_id '||
80 ' FROM mtl_parameters '||
81 ' WHERE organization_id ='||l_org_id||' )'||
82 ' ORDER BY mp.organization_code';
83
84 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Organization Parameters');
85 statusStr := 'SUCCESS';
86 isFatal := 'FALSE';
87
88 sqltxt := 'SELECT ORGANIZATION_CODE, organization_name, operating_unit, gl.name "Set of Books" '||
89 'FROM org_organization_definitions org, gl_sets_of_books gl '||
90 'WHERE organization_id = '||l_org_id||
91 'and org.SET_OF_BOOKS_ID=gl.set_of_books_id';
92 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Organization Information');
93 statusStr := 'SUCCESS';
94 isFatal := 'FALSE';
95
96 sqltxt := 'select mg.concatenated_segments "Alias", gl.concatenated_segments "Account" '||
97 ', mg.description "Description", mg.enabled_flag "Enabled" '||
98 ', to_char(mg.effective_date, ''DD-Mon-RRRR'') "Effective On" '||
99 ', to_char(mg.end_date_active , ''DD-Mon-RRRR'') "Effective To" '||
100 'from mtl_generic_dispositions_kfv mg, gl_code_combinations_kfv gl '||
101 'where mg.distribution_account = gl.code_combination_id '||
102 'and mg.organization_id= '||l_org_id;
103 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Account Aliases');
104 statusStr := 'SUCCESS';
105 isFatal := 'FALSE';
106
107
108 sqltxt := 'select period_name "Period", period_start_date "From", schedule_close_date "To", period_close_date "Close Date", decode(open_flag, ''Y'', ''Open'', ''Closed'') "Status" '||
109 'from org_acct_periods where organization_id = '||l_org_id||
110 'order by acct_period_id desc ';
111 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Inventory Accounting Periods');
112 statusStr := 'SUCCESS';
113 isFatal := 'FALSE';
114
115 sqltxt := 'select alias_name "Alias", gl.code_combination_id "Account Id" '||
116 ', ff.concatenated_segments "Account", ff.enabled_flag "Enabled" '||
117 ', to_char(gl.start_date_active, ''DD-Mon-RRRR'') "Effective On" '||
118 ', to_char(gl.end_date_active, ''DD-Mon-RRRR'') "Effective To" '||
119 ', ff.description "Description" '||
120 'from fnd_shorthand_flex_aliases ff, gl_code_combinations_kfv gl '||
121 'where id_flex_code =''GL#'' and application_id=101 and ID_FLEX_NUM=''101'' '||
122 'and gl.chart_of_accounts_id = ff.id_flex_num '||
123 'and gl.concatenated_segments=ff.concatenated_segments' ;
124
125 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Operations Account');
126 statusStr := 'SUCCESS';
127 isFatal := 'FALSE';
128
129 else
130
131 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Org Id or Org Code input is requred!');
132 statusStr := 'FAILURE';
133 errStr := 'This test failed as: no input';
134 fixInfo := 'Put informative fix info. here';
135 isFatal := 'SUCCESS';
136
137 end if;
138
139 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
140 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
141
142 EXCEPTION
143 when others then
144 -- this should never happen
145 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('Exception Occurred In RUNTEST');
146 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
147 raise;
148
149 END runTest;
150
151 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
152 BEGIN
153 name := 'Organization Information';
154 END getComponentName;
155
156 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
157 BEGIN
158 descStr := 'Display Inventory organization information ';
159 END getTestDesc;
160
161 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
162 BEGIN
163 name := 'Organization Data Collection';
164 END getTestName;
165
166 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
167 tempDependencies JTF_DIAG_DEPENDTBL;
168
169 BEGIN
170 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
171 END getDependencies;
172
173 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
174 BEGIN
175 str := 'FALSE';
176 END isDependencyPipelined;
177
178
179 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
180 tempOutput JTF_DIAG_OUTPUTTBL;
181 BEGIN
182 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
183 outputValues := tempOutput;
184 EXCEPTION
185 when others then
186 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
187 END getOutputValues;
188
189
190 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
191 tempInput JTF_DIAG_INPUTTBL;
192 BEGIN
193 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
194 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'OrgId','LOV-oracle.apps.inv.diag.lov.OrganizationLov');
195 defaultInputValues := tempInput;
196 EXCEPTION
197 when others then
198 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
199 END getDefaultTestParams;
200
201 Function getTestMode return INTEGER IS
202 BEGIN
203 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
204
205 END getTestMode;
206
207 END;