32: FUNCTION Check_Profiles RETURN VARCHAR2 IS
33: l_statusStr VARCHAR2(10);
34: BEGIN
35: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
36: JTF_DIAGNOSTIC_COREAPI.SectionPrint('1. CHECKING PROFILES');
37: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('JMF_SHK_CHARGE_BASED_ENABLED', NULL, NULL, NULL, null) = NULL THEN
38: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
39: END IF;
40: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('XLA_MO_SECURITY_PROFILE_LEVEL', NULL, NULL, NULL, null) = NULL THEN
33: l_statusStr VARCHAR2(10);
34: BEGIN
35: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
36: JTF_DIAGNOSTIC_COREAPI.SectionPrint('1. CHECKING PROFILES');
37: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('JMF_SHK_CHARGE_BASED_ENABLED', NULL, NULL, NULL, null) = NULL THEN
38: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
39: END IF;
40: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('XLA_MO_SECURITY_PROFILE_LEVEL', NULL, NULL, NULL, null) = NULL THEN
41: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
36: JTF_DIAGNOSTIC_COREAPI.SectionPrint('1. CHECKING PROFILES');
37: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('JMF_SHK_CHARGE_BASED_ENABLED', NULL, NULL, NULL, null) = NULL THEN
38: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
39: END IF;
40: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('XLA_MO_SECURITY_PROFILE_LEVEL', NULL, NULL, NULL, null) = NULL THEN
41: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
42: END IF ;
43: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('DEFAULT_ORG_ID', NULL, NULL, NULL, null) = NULL THEN
44: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
39: END IF;
40: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('XLA_MO_SECURITY_PROFILE_LEVEL', NULL, NULL, NULL, null) = NULL THEN
41: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
42: END IF ;
43: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('DEFAULT_ORG_ID', NULL, NULL, NULL, null) = NULL THEN
44: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
45: END IF;
46: JTF_DIAGNOSTIC_COREAPI.BRPrint;
47: RETURN l_statusStr;
42: END IF ;
43: IF JTF_DIAGNOSTIC_COREAPI.CheckProfile('DEFAULT_ORG_ID', NULL, NULL, NULL, null) = NULL THEN
44: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
45: END IF;
46: JTF_DIAGNOSTIC_COREAPI.BRPrint;
47: RETURN l_statusStr;
48: END Check_Profiles;
49:
50: --========================================================================
60: l_sqltxt VARCHAR2(2000);
61: l_statusStr VARCHAR2(10);
62: BEGIN
63: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
64: JTF_DIAGNOSTIC_COREAPI.SectionPrint('2. CHECKING WIP PARAMETERS');
65: JTF_DIAGNOSTIC_COREAPI.line_out('WIP Parameters have not been defined for the following MP Organizations:');
66: JTF_DIAGNOSTIC_COREAPI.BRPrint;
67: l_sqltxt := ' SELECT
68: organization_id "MP Organization Id",
61: l_statusStr VARCHAR2(10);
62: BEGIN
63: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
64: JTF_DIAGNOSTIC_COREAPI.SectionPrint('2. CHECKING WIP PARAMETERS');
65: JTF_DIAGNOSTIC_COREAPI.line_out('WIP Parameters have not been defined for the following MP Organizations:');
66: JTF_DIAGNOSTIC_COREAPI.BRPrint;
67: l_sqltxt := ' SELECT
68: organization_id "MP Organization Id",
69: organization_code "MP Organization Code"
62: BEGIN
63: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
64: JTF_DIAGNOSTIC_COREAPI.SectionPrint('2. CHECKING WIP PARAMETERS');
65: JTF_DIAGNOSTIC_COREAPI.line_out('WIP Parameters have not been defined for the following MP Organizations:');
66: JTF_DIAGNOSTIC_COREAPI.BRPrint;
67: l_sqltxt := ' SELECT
68: organization_id "MP Organization Id",
69: organization_code "MP Organization Code"
70: FROM MTL_PARAMETERS mp
72: AND NOT EXISTS
73: (SELECT 1 FROM WIP_PARAMETERS wp
74: WHERE mp.organization_id = wp.organization_id)';
75:
76: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
77: JTF_DIAGNOSTIC_COREAPI.BRPrint;
78: IF l_count >0 THEN
79: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter WIP Parameters for these MP Organizations');
80: JTF_DIAGNOSTIC_COREAPI.BRPrint;
73: (SELECT 1 FROM WIP_PARAMETERS wp
74: WHERE mp.organization_id = wp.organization_id)';
75:
76: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
77: JTF_DIAGNOSTIC_COREAPI.BRPrint;
78: IF l_count >0 THEN
79: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter WIP Parameters for these MP Organizations');
80: JTF_DIAGNOSTIC_COREAPI.BRPrint;
81: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
75:
76: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
77: JTF_DIAGNOSTIC_COREAPI.BRPrint;
78: IF l_count >0 THEN
79: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter WIP Parameters for these MP Organizations');
80: JTF_DIAGNOSTIC_COREAPI.BRPrint;
81: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
82: END IF;
83: RETURN l_statusStr;
76: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
77: JTF_DIAGNOSTIC_COREAPI.BRPrint;
78: IF l_count >0 THEN
79: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please enter WIP Parameters for these MP Organizations');
80: JTF_DIAGNOSTIC_COREAPI.BRPrint;
81: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
82: END IF;
83: RETURN l_statusStr;
84:
97: l_sqltxt VARCHAR2(2000);
98: l_statusStr VARCHAR2(10);
99: BEGIN
100: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
101: JTF_DIAGNOSTIC_COREAPI.SectionPrint('3. CHECKING ACCOUNTING PERIODS');
102: JTF_DIAGNOSTIC_COREAPI.line_out('Inventory accounting periods are not open in the following MP organizations:');
103: JTF_DIAGNOSTIC_COREAPI.BRPrint;
104: l_sqltxt := ' SELECT
105: organization_id "MP Organization Id",
98: l_statusStr VARCHAR2(10);
99: BEGIN
100: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
101: JTF_DIAGNOSTIC_COREAPI.SectionPrint('3. CHECKING ACCOUNTING PERIODS');
102: JTF_DIAGNOSTIC_COREAPI.line_out('Inventory accounting periods are not open in the following MP organizations:');
103: JTF_DIAGNOSTIC_COREAPI.BRPrint;
104: l_sqltxt := ' SELECT
105: organization_id "MP Organization Id",
106: organization_code "MP Organization Code"
99: BEGIN
100: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
101: JTF_DIAGNOSTIC_COREAPI.SectionPrint('3. CHECKING ACCOUNTING PERIODS');
102: JTF_DIAGNOSTIC_COREAPI.line_out('Inventory accounting periods are not open in the following MP organizations:');
103: JTF_DIAGNOSTIC_COREAPI.BRPrint;
104: l_sqltxt := ' SELECT
105: organization_id "MP Organization Id",
106: organization_code "MP Organization Code"
107: FROM mtl_parameters mp
113: AND (Trunc(period_start_date) < Trunc(SYSDATE)
114: AND Trunc(schedule_close_date) > Trunc(SYSDATE))
115: AND open_flag = ''Y'' )';
116:
117: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
118: JTF_DIAGNOSTIC_COREAPI.BRPrint;
119: IF l_count >0 THEN
120: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please open accounting periods in these MP organizations');
121: JTF_DIAGNOSTIC_COREAPI.BRPrint;
114: AND Trunc(schedule_close_date) > Trunc(SYSDATE))
115: AND open_flag = ''Y'' )';
116:
117: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
118: JTF_DIAGNOSTIC_COREAPI.BRPrint;
119: IF l_count >0 THEN
120: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please open accounting periods in these MP organizations');
121: JTF_DIAGNOSTIC_COREAPI.BRPrint;
122: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
116:
117: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
118: JTF_DIAGNOSTIC_COREAPI.BRPrint;
119: IF l_count >0 THEN
120: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please open accounting periods in these MP organizations');
121: JTF_DIAGNOSTIC_COREAPI.BRPrint;
122: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
123: END IF;
124: RETURN l_statusStr;
117: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
118: JTF_DIAGNOSTIC_COREAPI.BRPrint;
119: IF l_count >0 THEN
120: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please open accounting periods in these MP organizations');
121: JTF_DIAGNOSTIC_COREAPI.BRPrint;
122: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
123: END IF;
124: RETURN l_statusStr;
125:
142: l_sqltxt VARCHAR2(2000);
143: l_statusStr VARCHAR2(10);
144: BEGIN
145: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
146: JTF_DIAGNOSTIC_COREAPI.SectionPrint('4. CHECKING ROUTINGS');
147: JTF_DIAGNOSTIC_COREAPI.line_out('Routings are defined for the following Outsourced Assembly items in MP organizations:');
148: JTF_DIAGNOSTIC_COREAPI.BRPrint;
149: l_sqltxt := ' SELECT
150: msi.segment1 "Outsourced Assembly",
143: l_statusStr VARCHAR2(10);
144: BEGIN
145: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
146: JTF_DIAGNOSTIC_COREAPI.SectionPrint('4. CHECKING ROUTINGS');
147: JTF_DIAGNOSTIC_COREAPI.line_out('Routings are defined for the following Outsourced Assembly items in MP organizations:');
148: JTF_DIAGNOSTIC_COREAPI.BRPrint;
149: l_sqltxt := ' SELECT
150: msi.segment1 "Outsourced Assembly",
151: mp.organization_code "Organization Code"
144: BEGIN
145: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
146: JTF_DIAGNOSTIC_COREAPI.SectionPrint('4. CHECKING ROUTINGS');
147: JTF_DIAGNOSTIC_COREAPI.line_out('Routings are defined for the following Outsourced Assembly items in MP organizations:');
148: JTF_DIAGNOSTIC_COREAPI.BRPrint;
149: l_sqltxt := ' SELECT
150: msi.segment1 "Outsourced Assembly",
151: mp.organization_code "Organization Code"
152: FROM
161: WHERE bor.organization_id = msi.organization_id
162: AND bor.assembly_item_id = msi.inventory_item_id)';
163:
164:
165: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
166: JTF_DIAGNOSTIC_COREAPI.BRPrint;
167: IF l_count >0 THEN
168: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please remove any defined routings for these Outsourced assemblies in MP Organizations');
169: JTF_DIAGNOSTIC_COREAPI.BRPrint;
162: AND bor.assembly_item_id = msi.inventory_item_id)';
163:
164:
165: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
166: JTF_DIAGNOSTIC_COREAPI.BRPrint;
167: IF l_count >0 THEN
168: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please remove any defined routings for these Outsourced assemblies in MP Organizations');
169: JTF_DIAGNOSTIC_COREAPI.BRPrint;
170: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
164:
165: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
166: JTF_DIAGNOSTIC_COREAPI.BRPrint;
167: IF l_count >0 THEN
168: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please remove any defined routings for these Outsourced assemblies in MP Organizations');
169: JTF_DIAGNOSTIC_COREAPI.BRPrint;
170: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
171: END IF;
172: RETURN l_statusStr;
165: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
166: JTF_DIAGNOSTIC_COREAPI.BRPrint;
167: IF l_count >0 THEN
168: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please remove any defined routings for these Outsourced assemblies in MP Organizations');
169: JTF_DIAGNOSTIC_COREAPI.BRPrint;
170: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
171: END IF;
172: RETURN l_statusStr;
173:
185: l_sqltxt VARCHAR2(2000);
186: l_statusStr VARCHAR2(10);
187: BEGIN
188: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
189: JTF_DIAGNOSTIC_COREAPI.SectionPrint('5. CHECKING SHIPPING NETWORKS');
190: JTF_DIAGNOSTIC_COREAPI.line_out('Shipping network is not defined between the following OEM and MP organizations:');
191: JTF_DIAGNOSTIC_COREAPI.BRPrint;
192: l_sqltxt := ' SELECT DISTINCT
193: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
186: l_statusStr VARCHAR2(10);
187: BEGIN
188: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
189: JTF_DIAGNOSTIC_COREAPI.SectionPrint('5. CHECKING SHIPPING NETWORKS');
190: JTF_DIAGNOSTIC_COREAPI.line_out('Shipping network is not defined between the following OEM and MP organizations:');
191: JTF_DIAGNOSTIC_COREAPI.BRPrint;
192: l_sqltxt := ' SELECT DISTINCT
193: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
194: (SELECT organization_code FROM mtl_parameters WHERE organization_id = tp_organization_id) "MP Organization Code"
187: BEGIN
188: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
189: JTF_DIAGNOSTIC_COREAPI.SectionPrint('5. CHECKING SHIPPING NETWORKS');
190: JTF_DIAGNOSTIC_COREAPI.line_out('Shipping network is not defined between the following OEM and MP organizations:');
191: JTF_DIAGNOSTIC_COREAPI.BRPrint;
192: l_sqltxt := ' SELECT DISTINCT
193: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
194: (SELECT organization_code FROM mtl_parameters WHERE organization_id = tp_organization_id) "MP Organization Code"
195: FROM jmf_subcontract_orders jso
199: AND mip.to_organization_id = jso.tp_organization_id
200: AND SUBCONTRACTING_TYPE IS NOT NULL)';
201:
202:
203: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
204: JTF_DIAGNOSTIC_COREAPI.BRPrint;
205: IF l_count >0 THEN
206: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define shipping networks between the following OEM and MP organizations');
207: JTF_DIAGNOSTIC_COREAPI.BRPrint;
200: AND SUBCONTRACTING_TYPE IS NOT NULL)';
201:
202:
203: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
204: JTF_DIAGNOSTIC_COREAPI.BRPrint;
205: IF l_count >0 THEN
206: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define shipping networks between the following OEM and MP organizations');
207: JTF_DIAGNOSTIC_COREAPI.BRPrint;
208: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
202:
203: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
204: JTF_DIAGNOSTIC_COREAPI.BRPrint;
205: IF l_count >0 THEN
206: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define shipping networks between the following OEM and MP organizations');
207: JTF_DIAGNOSTIC_COREAPI.BRPrint;
208: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
209: END IF;
210: RETURN l_statusStr;
203: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
204: JTF_DIAGNOSTIC_COREAPI.BRPrint;
205: IF l_count >0 THEN
206: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define shipping networks between the following OEM and MP organizations');
207: JTF_DIAGNOSTIC_COREAPI.BRPrint;
208: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
209: END IF;
210: RETURN l_statusStr;
211:
223: l_sqltxt VARCHAR2(2000);
224: l_statusStr VARCHAR2(10);
225: BEGIN
226: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
227: JTF_DIAGNOSTIC_COREAPI.SectionPrint('6. CHECKING SHIPPING METHODS');
228: JTF_DIAGNOSTIC_COREAPI.line_out('Default shipping method is not defined between the following OEM and MP organizations:');
229: JTF_DIAGNOSTIC_COREAPI.BRPrint;
230: l_sqltxt := ' SELECT DISTINCT
231: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
224: l_statusStr VARCHAR2(10);
225: BEGIN
226: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
227: JTF_DIAGNOSTIC_COREAPI.SectionPrint('6. CHECKING SHIPPING METHODS');
228: JTF_DIAGNOSTIC_COREAPI.line_out('Default shipping method is not defined between the following OEM and MP organizations:');
229: JTF_DIAGNOSTIC_COREAPI.BRPrint;
230: l_sqltxt := ' SELECT DISTINCT
231: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
232: (SELECT organization_code FROM mtl_parameters WHERE organization_id = tp_organization_id) "TP Organization Code"
225: BEGIN
226: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
227: JTF_DIAGNOSTIC_COREAPI.SectionPrint('6. CHECKING SHIPPING METHODS');
228: JTF_DIAGNOSTIC_COREAPI.line_out('Default shipping method is not defined between the following OEM and MP organizations:');
229: JTF_DIAGNOSTIC_COREAPI.BRPrint;
230: l_sqltxt := ' SELECT DISTINCT
231: (SELECT organization_code FROM mtl_parameters WHERE organization_id = oem_organization_id) "OEM Organization Code",
232: (SELECT organization_code FROM mtl_parameters WHERE organization_id = tp_organization_id) "TP Organization Code"
233: FROM jmf_subcontract_orders jso
246: WHERE mism.from_organization_id = jso.tp_organization_id
247: AND mism.to_organization_id = jso.oem_organization_id
248: AND mism.default_flag = 1)';
249:
250: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
251: JTF_DIAGNOSTIC_COREAPI.BRPrint;
252: IF l_count >0 THEN
253: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define default shipping methods between the following OEM and MP organizations');
254: JTF_DIAGNOSTIC_COREAPI.BRPrint;
247: AND mism.to_organization_id = jso.oem_organization_id
248: AND mism.default_flag = 1)';
249:
250: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
251: JTF_DIAGNOSTIC_COREAPI.BRPrint;
252: IF l_count >0 THEN
253: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define default shipping methods between the following OEM and MP organizations');
254: JTF_DIAGNOSTIC_COREAPI.BRPrint;
255: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
249:
250: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
251: JTF_DIAGNOSTIC_COREAPI.BRPrint;
252: IF l_count >0 THEN
253: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define default shipping methods between the following OEM and MP organizations');
254: JTF_DIAGNOSTIC_COREAPI.BRPrint;
255: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
256: END IF;
257: RETURN l_statusStr;
250: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
251: JTF_DIAGNOSTIC_COREAPI.BRPrint;
252: IF l_count >0 THEN
253: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define default shipping methods between the following OEM and MP organizations');
254: JTF_DIAGNOSTIC_COREAPI.BRPrint;
255: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
256: END IF;
257: RETURN l_statusStr;
258:
271: l_sqltxt VARCHAR2(2000);
272: l_statusStr VARCHAR2(10);
273: BEGIN
274: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
275: JTF_DIAGNOSTIC_COREAPI.SectionPrint('7. CHECKING CUSTOMER SUPPLIER ASSOCIATION');
276:
277: -- For OEM organizations
278: JTF_DIAGNOSTIC_COREAPI.line_out('Customer/Supplier Associations have not been defined in the following OEM organizations:');
279: JTF_DIAGNOSTIC_COREAPI.BRPrint;
274: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
275: JTF_DIAGNOSTIC_COREAPI.SectionPrint('7. CHECKING CUSTOMER SUPPLIER ASSOCIATION');
276:
277: -- For OEM organizations
278: JTF_DIAGNOSTIC_COREAPI.line_out('Customer/Supplier Associations have not been defined in the following OEM organizations:');
279: JTF_DIAGNOSTIC_COREAPI.BRPrint;
280: l_sqltxt := ' SELECT
281: ORGANIZATION_CODE "OEM Organization" FROM mtl_parameters mp
282: WHERE Nvl(trading_partner_org_flag, ''N'') = ''N''
275: JTF_DIAGNOSTIC_COREAPI.SectionPrint('7. CHECKING CUSTOMER SUPPLIER ASSOCIATION');
276:
277: -- For OEM organizations
278: JTF_DIAGNOSTIC_COREAPI.line_out('Customer/Supplier Associations have not been defined in the following OEM organizations:');
279: JTF_DIAGNOSTIC_COREAPI.BRPrint;
280: l_sqltxt := ' SELECT
281: ORGANIZATION_CODE "OEM Organization" FROM mtl_parameters mp
282: WHERE Nvl(trading_partner_org_flag, ''N'') = ''N''
283: AND EXISTS(
291: ( SELECT 1 FROM mtl_system_items_b msi
292: WHERE msi.organization_id = mp.organization_id
293: AND msi.outsourced_assembly = 1)';
294:
295: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
296: JTF_DIAGNOSTIC_COREAPI.BRPrint;
297: IF l_count >0 THEN
298: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these OEM organizations');
299: JTF_DIAGNOSTIC_COREAPI.BRPrint;
292: WHERE msi.organization_id = mp.organization_id
293: AND msi.outsourced_assembly = 1)';
294:
295: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
296: JTF_DIAGNOSTIC_COREAPI.BRPrint;
297: IF l_count >0 THEN
298: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these OEM organizations');
299: JTF_DIAGNOSTIC_COREAPI.BRPrint;
300: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
294:
295: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
296: JTF_DIAGNOSTIC_COREAPI.BRPrint;
297: IF l_count >0 THEN
298: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these OEM organizations');
299: JTF_DIAGNOSTIC_COREAPI.BRPrint;
300: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
301: END IF;
302:
295: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
296: JTF_DIAGNOSTIC_COREAPI.BRPrint;
297: IF l_count >0 THEN
298: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these OEM organizations');
299: JTF_DIAGNOSTIC_COREAPI.BRPrint;
300: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
301: END IF;
302:
303: l_count :=0;
301: END IF;
302:
303: l_count :=0;
304: -- For MP organizations
305: JTF_DIAGNOSTIC_COREAPI.line_out('Customer/Supplier Associations have not been defined in the following MP organizations:');
306: JTF_DIAGNOSTIC_COREAPI.BRPrint;
307: l_sqltxt := ' SELECT
308: ORGANIZATION_CODE "MP Organization" FROM mtl_parameters mp
309: WHERE Nvl(trading_partner_org_flag, ''N'') = ''Y''
302:
303: l_count :=0;
304: -- For MP organizations
305: JTF_DIAGNOSTIC_COREAPI.line_out('Customer/Supplier Associations have not been defined in the following MP organizations:');
306: JTF_DIAGNOSTIC_COREAPI.BRPrint;
307: l_sqltxt := ' SELECT
308: ORGANIZATION_CODE "MP Organization" FROM mtl_parameters mp
309: WHERE Nvl(trading_partner_org_flag, ''N'') = ''Y''
310: AND EXISTS(
316: OR org_information2 IS NULL
317: OR org_information4 IS NULL
318: OR org_information4 IS NULL) ) ';
319:
320: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
321: JTF_DIAGNOSTIC_COREAPI.BRPrint;
322: IF l_count >0 THEN
323: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these MP organizations');
324: JTF_DIAGNOSTIC_COREAPI.BRPrint;
317: OR org_information4 IS NULL
318: OR org_information4 IS NULL) ) ';
319:
320: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
321: JTF_DIAGNOSTIC_COREAPI.BRPrint;
322: IF l_count >0 THEN
323: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these MP organizations');
324: JTF_DIAGNOSTIC_COREAPI.BRPrint;
325: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
319:
320: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
321: JTF_DIAGNOSTIC_COREAPI.BRPrint;
322: IF l_count >0 THEN
323: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these MP organizations');
324: JTF_DIAGNOSTIC_COREAPI.BRPrint;
325: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
326: END IF;
327: RETURN l_statusStr;
320: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
321: JTF_DIAGNOSTIC_COREAPI.BRPrint;
322: IF l_count >0 THEN
323: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define Customer/Supplier Associations in these MP organizations');
324: JTF_DIAGNOSTIC_COREAPI.BRPrint;
325: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
326: END IF;
327: RETURN l_statusStr;
328:
342: l_sqltxt VARCHAR2(2000);
343: l_statusStr VARCHAR2(10);
344: BEGIN
345: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
346: JTF_DIAGNOSTIC_COREAPI.SectionPrint('8. CHECKING PRICE LISTS');
347: JTF_DIAGNOSTIC_COREAPI.line_out('The following subcontracting components are not associated with any price list:');
348: JTF_DIAGNOSTIC_COREAPI.BRPrint;
349: l_sqltxt := ' SELECT DISTINCT
350: SEGMENT1 "Item"
343: l_statusStr VARCHAR2(10);
344: BEGIN
345: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
346: JTF_DIAGNOSTIC_COREAPI.SectionPrint('8. CHECKING PRICE LISTS');
347: JTF_DIAGNOSTIC_COREAPI.line_out('The following subcontracting components are not associated with any price list:');
348: JTF_DIAGNOSTIC_COREAPI.BRPrint;
349: l_sqltxt := ' SELECT DISTINCT
350: SEGMENT1 "Item"
351: FROM mtl_system_items_b msi
344: BEGIN
345: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_SUCCESS;
346: JTF_DIAGNOSTIC_COREAPI.SectionPrint('8. CHECKING PRICE LISTS');
347: JTF_DIAGNOSTIC_COREAPI.line_out('The following subcontracting components are not associated with any price list:');
348: JTF_DIAGNOSTIC_COREAPI.BRPrint;
349: l_sqltxt := ' SELECT DISTINCT
350: SEGMENT1 "Item"
351: FROM mtl_system_items_b msi
352: WHERE subcontracting_component IN (1,2)
357: AND NOT EXISTS
358: ( SELECT 1 FROM qp_list_lines
359: WHERE qp_price_list_pvt.get_inventory_item_id(list_line_id) = msi.inventory_item_id)';
360:
361: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
362: JTF_DIAGNOSTIC_COREAPI.BRPrint;
363: IF l_count >0 THEN
364: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define a valid price for these subcontracting components');
365: JTF_DIAGNOSTIC_COREAPI.BRPrint;
358: ( SELECT 1 FROM qp_list_lines
359: WHERE qp_price_list_pvt.get_inventory_item_id(list_line_id) = msi.inventory_item_id)';
360:
361: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
362: JTF_DIAGNOSTIC_COREAPI.BRPrint;
363: IF l_count >0 THEN
364: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define a valid price for these subcontracting components');
365: JTF_DIAGNOSTIC_COREAPI.BRPrint;
366: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
360:
361: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
362: JTF_DIAGNOSTIC_COREAPI.BRPrint;
363: IF l_count >0 THEN
364: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define a valid price for these subcontracting components');
365: JTF_DIAGNOSTIC_COREAPI.BRPrint;
366: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
367: END IF;
368: RETURN l_statusStr;
361: l_count := JTF_DIAGNOSTIC_COREAPI.display_SQL(l_sqltxt,'');
362: JTF_DIAGNOSTIC_COREAPI.BRPrint;
363: IF l_count >0 THEN
364: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Please define a valid price for these subcontracting components');
365: JTF_DIAGNOSTIC_COREAPI.BRPrint;
366: l_statusStr := JMF_SUBCONTRCT_DIAG_UTIL.G_STATUS_FAILURE;
367: END IF;
368: RETURN l_statusStr;
369: