30: l_proc_flag varchar2(1);
31: BEGIN
32: JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
33: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
34: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
35: -- accept input
36: l_org_id := JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('OrgId',inputs);
37: l_acct_period :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('AcctPeriod',inputs);
38: l_proc_flag :=JTF_DIAGNOSTIC_ADAPTUTIL.getInputValue('CostFlag',inputs);
46: WHERE organization_id = l_org_id
47: AND period_name = l_acct_period;
48: exception
49: when others then
50: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Invalid Input Parameters. ');
51: errStr := 'Invalid Account period '||SQLCODE||' '||substrb(sqlerrm,1,1000);
52: fixInfo := 'Enter a valid account period';
53: statusStr := 'FAILURE';
54: isFatal := 'SUCCESS';
83: ' , mmt.costed_flag '||
84: ' ORDER BY mp.organization_code, mmt.organization_id '||
85: ' , mmt.acct_period_id, mmt.costed_flag ';
86:
87: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Uncosted Transactions in ALL Orgs and ALL Periods ');
88:
89: statusStr := 'SUCCESS';
90: isFatal := 'FALSE';
91:
106: sqltxt :=sqltxt||' and mmt.organization_id = '||l_org_id;
107: end if;
108: sqltxt:=sqltxt||' ORDER BY TO_CHAR( oap.period_start_date,''DD-MON-RR'')';
109:
110: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Related Period Information');
111:
112: statusStr := 'SUCCESS';
113: isFatal := 'FALSE';
114:
169: sqltxt :=sqltxt||' and mmt.organization_id = '||l_org_id;
170: end if;
171: sqltxt :=sqltxt||' ORDER BY costed_flag, transaction_id';
172:
173: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Uncosted Txn in MMT with an invalid ACCT_PERIOD_ID in Organization');
174:
175: statusStr := 'SUCCESS';
176: isFatal := 'FALSE';
177:
209: if l_org_id is not null then
210: sqltxt :=sqltxt||' and mp.organization_id = '||l_org_id;
211: end if;
212:
213: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Cost-related Parameters from MTL_PARAMETERS');
214:
215: statusStr := 'SUCCESS';
216: isFatal := 'FALSE';
217:
262: end if;
263:
264: sqltxt:=sqltxt||' ORDER BY 1, 2 ';
265:
266: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Interorganization Relationships');
267:
268: statusStr := 'SUCCESS';
269: isFatal := 'FALSE';
270:
281: sqltxt :=sqltxt||' and organization_id = '||l_org_id;
282: end if;
283: sqltxt :=sqltxt||' ORDER BY cost_group';
284:
285: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Cost Groups ');
286:
287: statusStr := 'SUCCESS';
288: isFatal := 'FALSE';
289:
307: end if;
308: sqltxt :=sqltxt||' ORDER BY cost_group_id';
309: sqltxt := 'select * from ('||sqltxt||') WHERE ROWNUM <= '||row_limit;
310:
311: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Cost Group Accounts ');
312:
313: statusStr := 'SUCCESS';
314: isFatal := 'FALSE';
315:
322: ' AND object_name LIKE ''CST%'' '||
323: ' AND owner LIKE ''%'' '||
324: 'ORDER BY object_name, object_type ';
325:
326: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Invalid Costing database Objects');
327:
328: statusStr := 'SUCCESS';
329: isFatal := 'FALSE';
330:
370: ' ''MRP_TRACE'', '||
371: ' ''UPDATE_AVG_TXN'' ) ) '||
372: ' ORDER BY b.user_profile_option_name, c.level_id';
373:
374: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Related Costing Profile Options');
375:
376: statusStr := 'SUCCESS';
377: isFatal := 'FALSE';
378:
392: if l_acct_period_id is not null then
393: sqltxt := sqltxt||' and acct_period_id = '||l_acct_period_id;
394: end if;
395:
396: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Count uncosted records in MMT');
397:
398: statusStr := 'SUCCESS';
399: isFatal := 'FALSE';
400:
414: end if;
415:
416: sqltxt := sqltxt||'GROUP BY error_code, error_explanation, costed_flag';
417:
418: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Distinct Errors in MMT ');
419:
420: statusStr := 'SUCCESS';
421: isFatal := 'FALSE';
422:
432: sqltxt := sqltxt||' and acct_period_id = '||l_acct_period_id;
433: end if;
434:
435: sqltxt := sqltxt||'GROUP BY costed_flag';
436: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Count of distinct costed_flag in MMT ');
437:
438: statusStr := 'SUCCESS';
439: isFatal := 'FALSE';
440:
478: ' , mmt.transaction_source_type_id '||
479: 'ORDER BY 1, 2, 3 ';
480:
481:
482: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Transactions Type Information of UnCosted Txns ');
483:
484: statusStr := 'SUCCESS';
485: isFatal := 'FALSE';
486:
513: if l_acct_period_id is not null then
514: sqltxt := sqltxt||' and mmt.acct_period_id = '||l_acct_period_id;
515: end if;
516:
517: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Account transactions ( if already created ) of uncosted Txn');
518:
519: statusStr := 'SUCCESS';
520: isFatal := 'FALSE';
521:
557: sqltxt := sqltxt||' and mmt.acct_period_id = '||l_acct_period_id;
558: end if;
559:
560:
561: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, ' Subinventory Information of Txns in MMT');
562:
563: statusStr := 'SUCCESS';
564: isFatal := 'FALSE';
565:
609: end if;
610: if l_acct_period_id is not null then
611: sqltxt := sqltxt||' and mmt.acct_period_id = '||l_acct_period_id;
612: end if;
613: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Item Information of Txns in MMT');
614:
615: statusStr := 'SUCCESS';
616: isFatal := 'FALSE';
617:
679: sqltxt := sqltxt||' and mmt.acct_period_id = '||l_acct_period_id;
680: end if;
681:
682:
683: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Uncosted records in MMT');
684:
685: statusStr := 'SUCCESS';
686: isFatal := 'FALSE';
687:
704: ' , ''CSTPPACQ'', ''CSTPPAHK'' , ''CSTPAPBR'', ''CSTPAPPR'' '||
705: ' , ''INV_COST_GROUP_PVT'', ''INV_COST_GROUP_UPDATE'', ''INV_WWACST'' ) '||
706: ' ORDER BY o.name, o.type#';
707:
708: dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt, 'Version of relevant Packages');
709:
710: statusStr := 'SUCCESS';
711: isFatal := 'FALSE';
712: fixInfo := 'OK';
714:
715:
716: /**
717: else
718: JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('Invalid Input parameters');
719: statusStr := 'FAILURE';
720: errStr := 'org_id null';
721: fixInfo := 'Org or OrdID input is required ';
722: isFatal := 'SUCCESS';