Test
Test
Test
select name
from apps.AME_ACTION_TYPE_CONFIG atc
,apps.AME_ACTION_TYPES atyp
,apps.AME_ACTION_TYPE_USAGES atu
where application_id = appId
and sysdate between atu.start_date and nvl(atu.end_date,sysdate + 1)
and sysdate between atc.start_date and nvl(atc.end_date,sysdate + 1)
and sysdate between atyp.start_date and nvl(atyp.end_date,sysdate + 1)
and atc.action_type_id = atyp.action_type_id
and atu.action_type_id = atyp.action_type_id
and (atu.rule_type, atc.order_number) in (select rule_type,order_number
from apps.ame_action_type_config
B,apps.ame_action_type_usages C
where B.action_type_id =
C.action_type_id
and application_id = appId
and sysdate between C.start_date
and nvl(C.end_date,sysdate + 1)
and sysdate between B.start_date
and nvl(B.end_date,sysdate + 1)
group by rule_type,order_number
having count(*) > 1);
isTitlePrinted boolean;
currentAppId number;
applicationRow getApplications%ROWTYPE;
configVarsRow checkConfigVars%ROWTYPE;
actionTypesVRRow checkActionTypesVR%ROWTYPE;
actionTypesONRow checkActionTypesON%ROWTYPE;
checkApprovalGroupsVRRow checkApprovalGroupsVR%ROWTYPE;
checkApprovalGroupsONRow checkApprovalGroupsON%ROWTYPE;
checkApprovalGroupItemsRow checkApprovalGroupItems%ROWTYPE;
begin
dbms_output.put_line(‘Setup causing Parallelization Errors … ‘);
for applicationRow in getApplications loop
isTitlePrinted := false;
currentAppId := applicationRow.application_id;
for configVarsRow in checkConfigVars(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Incorrect value for ‘ || configVarsRow.configType ||
‘ Configuration Variable :: ‘ || configVarsRow.variable_name);
end loop;
dbms_output.put_line(‘ ‘);
for actionTypesVRRow in checkActionTypesVR(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non serial Voting Regime for Action Type :: ‘ ||
actionTypesVRRow.name);
end loop;
dbms_output.put_line(‘ ‘);
for actionTypesONRow in checkActionTypesON(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non unique Order Numbers for Action Type :: ‘ ||
actionTypesONRow.name);
end loop;
dbms_output.put_line(‘ ‘);
for checkApprovalGroupsVRRow in checkApprovalGroupsVR(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non serial or Order Number Voting Regime for Approval
Group :: ‘ || checkApprovalGroupsVRRow.name);
end loop;
dbms_output.put_line(‘ ‘);
for checkApprovalGroupsONRow in checkApprovalGroupsON(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non unique Order Numbers for Approval Group Config ::
‘ || checkApprovalGroupsONRow.name);
end loop;
dbms_output.put_line(‘ ‘);
for checkApprovalGroupItemsRow in checkApprovalGroupItems(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non unique Order Numbers for Items of Approval
Group :: ‘ || checkApprovalGroupItemsRow.name);
end loop;
dbms_output.put_line(‘ ‘);
for checkItemClassSMRow in checkItemClassSM(currentAppId) loop
if not isTitlePrinted then
dbms_output.put_line(‘ ‘);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘Transaction Type :: ‘ ||
applicationRow.application_name);
dbms_output.put_line(‘————————————————————— ‘);
dbms_output.put_line(‘ ‘);
isTitlePrinted := true;
end if;
dbms_output.put_line(‘Non Serial Sublist Modes for Item Class Usages :: ‘
|| checkItemClassSMRow.name);
end loop;
end loop;
end;
/
rollback;