[Home] [Help]
1: PACKAGE BODY AME_ENGINE as
2: /* $Header: ameeengi.pkb 120.35.12010000.6 2009/01/29 13:35:09 prasashe ship $ */
3: /*************************************************************************************
4: package variables
5: All engine package variables' names begin with the prefix 'eng'. All engine package
561: end if;
562: return(false);
563: exception
564: when others then
565: ame_util.runtimeException(packageNameIn => 'ame_engine',
566: routineNameIn => 'approversMatch',
567: exceptionNumberIn => sqlcode,
568: exceptionStringIn => sqlerrm);
569: raise;
646: return(engAttributeValues1(engAttributeValueIndexes(attributeIdIn)));
647: end if;
648: exception
649: when others then
650: ame_util.runtimeException(packageNameIn => 'ame_engine',
651: routineNameIn => 'getVariantAttributeValue',
652: exceptionNumberIn => sqlcode,
653: exceptionStringIn => sqlerrm);
654: raise;
662: itemClassIn => itemClassIn,
663: itemIdIn => itemIdIn));
664: exception
665: when others then
666: ame_util.runtimeException(packageNameIn => 'ame_engine',
667: routineNameIn => 'getVariantAttributeValue2',
668: exceptionNumberIn => sqlcode,
669: exceptionStringIn => sqlerrm);
670: raise;
879: when attributeTypeException then
880: errorCode := -20001;
881: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
882: messageNameIn => 'AME_400113_ENG_ATTR_UNREG_TYPE');
883: ame_util.runtimeException(packageNameIn => 'ame_engine',
884: routineNameIn => 'conditionIsSatisfied',
885: exceptionNumberIn => errorCode,
886: exceptionStringIn => errorMessage);
887: raise_application_error(errorCode,
887: raise_application_error(errorCode,
888: errorMessage);
889: return(null);
890: when others then
891: ame_util.runtimeException(packageNameIn => 'ame_engine',
892: routineNameIn => 'conditionIsSatisfied',
893: exceptionNumberIn => sqlcode,
894: exceptionStringIn => sqlerrm);
895: raise;
899: begin
900: return(engEvalPrioritiesPerItem);
901: exception
902: when others then
903: ame_util.runtimeException(packageNameIn => 'ame_engine',
904: routineNameIn => 'evalPrioritiesPerItem',
905: exceptionNumberIn => sqlcode,
906: exceptionStringIn => sqlerrm);
907: raise;
918: end loop;
919: return(false);
920: exception
921: when others then
922: ame_util.runtimeException(packageNameIn => 'ame_engine',
923: routineNameIn => 'insertionExists',
924: exceptionNumberIn => sqlcode,
925: exceptionStringIn => sqlerrm);
926: raise;
930: begin
931: return(engIsLocalTransaction);
932: exception
933: when others then
934: ame_util.runtimeException(packageNameIn => 'ame_engine',
935: routineNameIn => 'isLocalTransaction',
936: exceptionNumberIn => sqlcode,
937: exceptionStringIn => sqlerrm);
938: raise;
945: end if;
946: return(false);
947: exception
948: when others then
949: ame_util.runtimeException(packageNameIn => 'ame_engine',
950: routineNameIn => 'isStaticAttUsage',
951: exceptionNumberIn => sqlcode,
952: exceptionStringIn => sqlerrm);
953: raise;
957: begin
958: return(engIsTestTransaction);
959: exception
960: when others then
961: ame_util.runtimeException(packageNameIn => 'ame_engine',
962: routineNameIn => 'isTestTransaction',
963: exceptionNumberIn => sqlcode,
964: exceptionStringIn => sqlerrm);
965: raise;
976: end if;
977: return false;
978: exception
979: when others then
980: ame_util.runtimeException(packageNameIn => 'ame_engine',
981: routineNameIn => 'isVariant',
982: exceptionNumberIn => sqlcode,
983: exceptionStringIn => sqlerrm);
984: raise;
988: begin
989: return(engProcessPriorities);
990: exception
991: when others then
992: ame_util.runtimeException(packageNameIn => 'ame_engine',
993: routineNameIn => 'processPriorities',
994: exceptionNumberIn => sqlcode,
995: exceptionStringIn => sqlerrm);
996: raise;
1000: begin
1001: return(engProcessProductionActions);
1002: exception
1003: when others then
1004: ame_util.runtimeException(packageNameIn => 'ame_engine',
1005: routineNameIn => 'processProductionActions',
1006: exceptionNumberIn => sqlcode,
1007: exceptionStringIn => sqlerrm);
1008: raise;
1012: begin
1013: return(engProcessProductionRules);
1014: exception
1015: when others then
1016: ame_util.runtimeException(packageNameIn => 'ame_engine',
1017: routineNameIn => 'processProductionRules',
1018: exceptionNumberIn => sqlcode,
1019: exceptionStringIn => sqlerrm);
1020: raise;
1039: rownum < 2; /* Avoids second fetch otherwise required by ANSI standard to check for too many rows. */
1040: return(ameApplicationId);
1041: exception
1042: when others then
1043: ame_util.runtimeException(packageNameIn => 'ame_engine',
1044: routineNameIn => 'fetchAmeApplicationId',
1045: exceptionNumberIn => sqlcode,
1046: exceptionStringIn => sqlerrm);
1047: raise;
1052: begin
1053: return(engActionTypeChainOrderModes(actionTypeIdIn));
1054: exception
1055: when others then
1056: ame_util.runtimeException(packageNameIn => 'ame_engine',
1057: routineNameIn => 'getActionTypeChainOrderMode',
1058: exceptionNumberIn => sqlcode,
1059: exceptionStringIn => sqlerrm);
1060: raise;
1072: end loop;
1073: return(null);
1074: exception
1075: when others then
1076: ame_util.runtimeException(packageNameIn => 'ame_engine',
1077: routineNameIn => 'getActionTypeId',
1078: exceptionNumberIn => sqlcode,
1079: exceptionStringIn => sqlerrm);
1080: raise;
1084: begin
1085: return(engActionTypeNames(actionTypeIdIn));
1086: exception
1087: when others then
1088: ame_util.runtimeException(packageNameIn => 'ame_engine',
1089: routineNameIn => 'getActionTypeName',
1090: exceptionNumberIn => sqlcode,
1091: exceptionStringIn => sqlerrm);
1092: raise;
1096: begin
1097: return(engActionTypeOrderNumbers(actionTypeIdIn));
1098: exception
1099: when others then
1100: ame_util.runtimeException(packageNameIn => 'ame_engine',
1101: routineNameIn => 'getActionTypeOrderNumber',
1102: exceptionNumberIn => sqlcode,
1103: exceptionStringIn => sqlerrm);
1104: raise;
1108: begin
1109: return(engActionTypePackageNames(actionTypeIdIn));
1110: exception
1111: when others then
1112: ame_util.runtimeException(packageNameIn => 'ame_engine',
1113: routineNameIn => 'getActionTypePackageName',
1114: exceptionNumberIn => sqlcode,
1115: exceptionStringIn => sqlerrm);
1116: raise;
1120: begin /* getActionTypeUsage returns the rule type that uses the input action type. */
1121: return(engActionTypeUsages(actionTypeIdIn));
1122: exception
1123: when others then
1124: ame_util.runtimeException(packageNameIn => 'ame_engine',
1125: routineNameIn => 'getActionTypeUsage',
1126: exceptionNumberIn => sqlcode,
1127: exceptionStringIn => sqlerrm);
1128: raise;
1135: end if;
1136: return(engActionTypeVotingRegimes(actionTypeIdIn));
1137: exception
1138: when others then
1139: ame_util.runtimeException(packageNameIn => 'ame_engine',
1140: routineNameIn => 'getActionTypeVotingRegime',
1141: exceptionNumberIn => sqlcode,
1142: exceptionStringIn => sqlerrm);
1143: raise;
1147: begin
1148: return(engAmeApplicationId);
1149: exception
1150: when others then
1151: ame_util.runtimeException(packageNameIn => 'ame_engine',
1152: routineNameIn => 'getAmeApplicationId',
1153: exceptionNumberIn => sqlcode,
1154: exceptionStringIn => sqlerrm);
1155: raise;
1159: begin
1160: return(engStApprovalProcessCompleteYN);
1161: exception
1162: when others then
1163: ame_util.runtimeException(packageNameIn => 'ame_engine',
1164: routineNameIn => 'getApprovalProcessCompleteYN',
1165: exceptionNumberIn => sqlcode,
1166: exceptionStringIn => sqlerrm);
1167: raise;
1189: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
1190: messageNameIn => 'AME_400680_NO_ID_FOR_ATTR',
1191: tokenNameOneIn => 'ATTRIBUTE_NAME',
1192: tokenValueOneIn => attributeNameIn);
1193: ame_util.runtimeException(packageNameIn => 'ame_engine',
1194: routineNameIn => 'getAttributeIdByName',
1195: exceptionNumberIn => errorCode,
1196: exceptionStringIn => errorMessage);
1197: raise_application_error(errorCode, errorMessage);
1196: exceptionStringIn => errorMessage);
1197: raise_application_error(errorCode, errorMessage);
1198: return(null);
1199: when others then
1200: ame_util.runtimeException(packageNameIn => 'ame_engine',
1201: routineNameIn => 'getAttributeIdByName',
1202: exceptionNumberIn => sqlcode,
1203: exceptionStringIn => attributeNameIn || ': ' || sqlerrm);
1204: raise;
1208: begin
1209: return(engAttributeNames(attributeIdIn));
1210: exception
1211: when others then
1212: ame_util.runtimeException(packageNameIn => 'ame_engine',
1213: routineNameIn => 'getAttributeName',
1214: exceptionNumberIn => sqlcode,
1215: exceptionStringIn => sqlerrm);
1216: raise;
1220: begin
1221: return(engAttributeTypes(attributeIdIn));
1222: exception
1223: when others then
1224: ame_util.runtimeException(packageNameIn => 'ame_engine',
1225: routineNameIn => 'getAttributeType',
1226: exceptionNumberIn => sqlcode,
1227: exceptionStringIn => sqlerrm);
1228: raise;
1245: errorMessage := ame_util.getMessage(applicationShortNameIn => 'PER',
1246: messageNameIn => 'AME_400114_ENG_INV_CON_VAR',
1247: tokenNameOneIn => 'CONFIG_VAR',
1248: tokenValueOneIn => configVarNameIn);
1249: ame_util.runtimeException(packageNameIn => 'ame_engine',
1250: routineNameIn => 'getConfigVarValue',
1251: exceptionNumberIn => errorCode,
1252: exceptionStringIn => errorMessage);
1253: raise_application_error(errorCode,
1252: exceptionStringIn => errorMessage);
1253: raise_application_error(errorCode,
1254: errorMessage);
1255: when others then
1256: ame_util.runtimeException(packageNameIn => 'ame_engine',
1257: routineNameIn => 'getConfigVarValue',
1258: exceptionNumberIn => sqlcode,
1259: exceptionStringIn => sqlerrm);
1260: raise;
1264: begin
1265: return(engEffectiveRuleDate);
1266: exception
1267: when others then
1268: ame_util.runtimeException(packageNameIn => 'ame_engine',
1269: routineNameIn => 'getEffectiveRuleDate',
1270: exceptionNumberIn => sqlcode,
1271: exceptionStringIn => sqlerrm);
1272: raise;
1276: begin
1277: return(engFndApplicationId);
1278: exception
1279: when others then
1280: ame_util.runtimeException(packageNameIn => 'ame_engine',
1281: routineNameIn => 'getFndApplicationId',
1282: exceptionNumberIn => sqlcode,
1283: exceptionStringIn => sqlerrm);
1284: raise;
1325: when badArgsException then
1326: errorCode := -20001;
1327: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
1328: messageNameIn => 'AME_400115_ENG_INV_VAL_ARG');
1329: ame_util.runtimeException(packageNameIn => 'ame_engine',
1330: routineNameIn => 'getForwardingBehavior',
1331: exceptionNumberIn => errorCode,
1332: exceptionStringIn => errorMessage);
1333: raise_application_error(errorCode,
1333: raise_application_error(errorCode,
1334: errorMessage);
1335: return(null);
1336: when others then
1337: ame_util.runtimeException(packageNameIn => 'ame_engine',
1338: routineNameIn => 'getForwardingBehavior',
1339: exceptionNumberIn => sqlcode,
1340: exceptionStringIn => sqlerrm);
1341: raise;
1345: begin
1346: return(engAppActionTypeIds(engAppHandlerFirstIndex));
1347: exception
1348: when others then
1349: ame_util.runtimeException(packageNameIn => 'ame_engine',
1350: routineNameIn => 'getHandlerActionTypeId',
1351: exceptionNumberIn => sqlcode,
1352: exceptionStringIn => sqlerrm);
1353: raise;
1357: begin
1358: return(engActionTypeOrderNumbers(engAppActionTypeIds(engAppHandlerFirstIndex)));
1359: exception
1360: when others then
1361: ame_util.runtimeException(packageNameIn => 'ame_engine',
1362: routineNameIn => 'getHandlerActionTypeOrderNum',
1363: exceptionNumberIn => sqlcode,
1364: exceptionStringIn => sqlerrm);
1365: raise;
1375: end loop;
1376: return(null);
1377: exception
1378: when others then
1379: ame_util.runtimeException(packageNameIn => 'ame_engine',
1380: routineNameIn => 'getHandlerApprovalStatus',
1381: exceptionNumberIn => sqlcode,
1382: exceptionStringIn => sqlerrm);
1383: raise;
1403: when badRuleTypeException then
1404: errorCode := -20001;
1405: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
1406: messageNameIn => 'AME_400681_INV_HANDLER_RUL_TYP');
1407: ame_util.runtimeException(packageNameIn => 'ame_engine',
1408: routineNameIn => 'getHandlerAuthority',
1409: exceptionNumberIn => errorCode,
1410: exceptionStringIn => errorMessage);
1411: raise_application_error(errorCode,
1411: raise_application_error(errorCode,
1412: errorMessage);
1413: return(null);
1414: when others then
1415: ame_util.runtimeException(packageNameIn => 'ame_engine',
1416: routineNameIn => 'getHandlerAuthority',
1417: exceptionNumberIn => sqlcode,
1418: exceptionStringIn => sqlerrm);
1419: raise;
1423: begin
1424: return(engAppRuleItemClassIds(engAppHandlerFirstIndex));
1425: exception
1426: when others then
1427: ame_util.runtimeException(packageNameIn => 'ame_engine',
1428: routineNameIn => 'getHandlerItemClassId',
1429: exceptionNumberIn => sqlcode,
1430: exceptionStringIn => sqlerrm);
1431: raise;
1435: begin
1436: return(getItemClassName(itemClassIdIn => engAppRuleItemClassIds(engAppHandlerFirstIndex)));
1437: exception
1438: when others then
1439: ame_util.runtimeException(packageNameIn => 'ame_engine',
1440: routineNameIn => 'getHandlerItemClassName',
1441: exceptionNumberIn => sqlcode,
1442: exceptionStringIn => sqlerrm);
1443: raise;
1447: begin
1448: return(engItemClassOrderNumbers(engItemClassIndexes(engAppRuleItemClassIds(engAppHandlerFirstIndex))));
1449: exception
1450: when others then
1451: ame_util.runtimeException(packageNameIn => 'ame_engine',
1452: routineNameIn => 'getHandlerItemClassOrderNumber',
1453: exceptionNumberIn => sqlcode,
1454: exceptionStringIn => sqlerrm);
1455: raise;
1459: begin
1460: return(engAppAppItemIds(engAppHandlerFirstIndex));
1461: exception
1462: when others then
1463: ame_util.runtimeException(packageNameIn => 'ame_engine',
1464: routineNameIn => 'getHandlerItemId',
1465: exceptionNumberIn => sqlcode,
1466: exceptionStringIn => sqlerrm);
1467: raise;
1477: itemIdIn => engAppAppItemIds(engAppHandlerFirstIndex)));
1478: end if;
1479: exception
1480: when others then
1481: ame_util.runtimeException(packageNameIn => 'ame_engine',
1482: routineNameIn => 'getHandlerItemOrderNumber',
1483: exceptionNumberIn => sqlcode,
1484: exceptionStringIn => sqlerrm);
1485: raise;
1562: end loop;
1563: return(occurrence);
1564: exception
1565: when others then
1566: ame_util.runtimeException(packageNameIn => 'ame_engine',
1567: routineNameIn => 'getHandlerOccurrence',
1568: exceptionNumberIn => sqlcode,
1569: exceptionStringIn => sqlerrm);
1570: raise;
1574: begin
1575: return(engAppRuleTypes(engAppHandlerFirstIndex));
1576: exception
1577: when others then
1578: ame_util.runtimeException(packageNameIn => 'ame_engine',
1579: routineNameIn => 'getHandlerRuleType',
1580: exceptionNumberIn => sqlcode,
1581: exceptionStringIn => sqlerrm);
1582: raise;
1602: exception
1603: when no_data_found then
1604: return(null);
1605: when others then
1606: ame_util.runtimeException(packageNameIn => 'ame_engine',
1607: routineNameIn => 'getHandlerState',
1608: exceptionNumberIn => sqlcode,
1609: exceptionStringIn => sqlerrm);
1610: raise;
1640: end if;
1641: end if;
1642: exception
1643: when others then
1644: ame_util.runtimeException(packageNameIn => 'ame_engine',
1645: routineNameIn => 'getHandlerSublistOrderNum',
1646: exceptionNumberIn => sqlcode,
1647: exceptionStringIn => sqlerrm);
1648: raise;
1652: begin
1653: return(engAttributeValues1(engAttributeValueIndexes(attributeIdIn)));
1654: exception
1655: when others then
1656: ame_util.runtimeException(packageNameIn => 'ame_engine',
1657: routineNameIn => 'getHeaderAttValue1',
1658: exceptionNumberIn => sqlcode,
1659: exceptionStringIn => sqlerrm);
1660: raise;
1685: and item_id = engTransactionId;
1686: return tempValue;
1687: exception
1688: when others then
1689: ame_util.runtimeException(packageNameIn => 'ame_engine',
1690: routineNameIn => 'getTestVariantAttValue',
1691: exceptionNumberIn => sqlcode,
1692: exceptionStringIn => sqlerrm);
1693: raise;
1693: raise;
1694: return(null);
1695: end;
1696: when others then
1697: ame_util.runtimeException(packageNameIn => 'ame_engine',
1698: routineNameIn => 'getTestVariantAttValue',
1699: exceptionNumberIn => sqlcode,
1700: exceptionStringIn => sqlerrm);
1701: raise;
1723: end if;
1724: end if;
1725: exception
1726: when others then
1727: ame_util.runtimeException(packageNameIn => 'ame_engine',
1728: routineNameIn => 'getHeaderAttValue2',
1729: exceptionNumberIn => sqlcode,
1730: exceptionStringIn => sqlerrm);
1731: raise;
1738: getItemOffset(itemClassIdIn => engAttributeItemClassIds(attributeIdIn),
1739: itemIdIn => itemIdIn)));
1740: exception
1741: when others then
1742: ame_util.runtimeException(packageNameIn => 'ame_engine',
1743: routineNameIn => 'getItemAttValue1',
1744: exceptionNumberIn => sqlcode,
1745: exceptionStringIn => sqlerrm);
1746: raise;
1755: getItemOffset(itemClassIdIn => engAttributeItemClassIds(attributeId),
1756: itemIdIn => itemIdIn)));
1757: exception
1758: when others then
1759: ame_util.runtimeException(packageNameIn => 'ame_engine',
1760: routineNameIn => 'getItemAttValue2',
1761: exceptionNumberIn => sqlcode,
1762: exceptionStringIn => sqlerrm);
1763: raise;
1772: end loop;
1773: return(null);
1774: exception
1775: when others then
1776: ame_util.runtimeException(packageNameIn => 'ame_engine',
1777: routineNameIn => 'getItemClassId',
1778: exceptionNumberIn => sqlcode,
1779: exceptionStringIn => sqlerrm);
1780: raise;
1784: begin
1785: return(engItemClassNames(engItemClassIndexes(itemClassIdIn)));
1786: exception
1787: when others then
1788: ame_util.runtimeException(packageNameIn => 'ame_engine',
1789: routineNameIn => 'getItemClassName',
1790: exceptionNumberIn => sqlcode,
1791: exceptionStringIn => sqlerrm);
1792: raise;
1796: begin
1797: return(engItemClassOrderNumbers(engItemClassIndexes(itemClassIdIn)));
1798: exception
1799: when others then
1800: ame_util.runtimeException(packageNameIn => 'ame_engine',
1801: routineNameIn => 'getItemClassOrderNumber',
1802: exceptionNumberIn => sqlcode,
1803: exceptionStringIn => sqlerrm);
1804: raise;
1808: begin
1809: return(engItemClassParModes(engItemClassIndexes(itemClassIdIn)));
1810: exception
1811: when others then
1812: ame_util.runtimeException(packageNameIn => 'ame_engine',
1813: routineNameIn => 'getItemClassParMode',
1814: exceptionNumberIn => sqlcode,
1815: exceptionStringIn => sqlerrm);
1816: raise;
1820: begin
1821: return(engItemClassSublistModes(engItemClassIndexes(itemClassIdIn)));
1822: exception
1823: when others then
1824: ame_util.runtimeException(packageNameIn => 'ame_engine',
1825: routineNameIn => 'getItemClassSublistMode',
1826: exceptionNumberIn => sqlcode,
1827: exceptionStringIn => sqlerrm);
1828: raise;
1848: when noIndexException then
1849: errorCode := -20001;
1850: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
1851: messageNameIn => 'AME_400682_ENG_INV_ITEM_OFFSET');
1852: ame_util.runtimeException(packageNameIn => 'ame_engine',
1853: routineNameIn => 'getItemIndex',
1854: exceptionNumberIn => errorCode,
1855: exceptionStringIn => errorMessage);
1856: raise_application_error(errorCode,
1856: raise_application_error(errorCode,
1857: errorMessage);
1858: return(null);
1859: when others then
1860: ame_util.runtimeException(packageNameIn => 'ame_engine',
1861: routineNameIn => 'getItemIndex',
1862: exceptionNumberIn => sqlcode,
1863: exceptionStringIn => sqlerrm);
1864: raise;
1884: when noOffsetException then
1885: errorCode := -20001;
1886: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
1887: messageNameIn => 'AME_400682_ENG_INV_ITEM_OFFSET');
1888: ame_util.runtimeException(packageNameIn => 'ame_engine',
1889: routineNameIn => 'getItemOffset',
1890: exceptionNumberIn => errorCode,
1891: exceptionStringIn => errorMessage);
1892: raise_application_error(errorCode,
1892: raise_application_error(errorCode,
1893: errorMessage);
1894: return(null);
1895: when others then
1896: ame_util.runtimeException(packageNameIn => 'ame_engine',
1897: routineNameIn => 'getItemOffset',
1898: exceptionNumberIn => sqlcode,
1899: exceptionStringIn => sqlerrm);
1900: raise;
1912: itemIdIn => itemIdIn));
1913: end if;
1914: exception
1915: when others then
1916: ame_util.runtimeException(packageNameIn => 'ame_engine',
1917: routineNameIn => 'getItemOrderNumber',
1918: exceptionNumberIn => sqlcode,
1919: exceptionStringIn => sqlerrm);
1920: raise;
1935: return (maxInsertionOrderNumber + 1);
1936: end if;
1937: exception
1938: when others then
1939: ame_util.runtimeException(packageNameIn => 'ame_engine',
1940: routineNameIn => 'getNextInsertionOrder',
1941: exceptionNumberIn => sqlcode,
1942: exceptionStringIn => sqlerrm);
1943: raise;
1957: end loop;
1958: return(maxOrderNumber + 1);
1959: exception
1960: when others then
1961: ame_util.runtimeException(packageNameIn => 'ame_engine',
1962: routineNameIn => 'getNullActionTypeOrderNumber',
1963: exceptionNumberIn => sqlcode,
1964: exceptionStringIn => sqlerrm);
1965: raise;
1985: end if;
1986: end loop;
1987: exception
1988: when others then
1989: ame_util.runtimeException(packageNameIn => 'ame_engine',
1990: routineNameIn => 'getRuntimeGroupCount',
1991: exceptionNumberIn => sqlcode,
1992: exceptionStringIn => sqlerrm);
1993: raise;
2023: end if;
2024: end if;
2025: exception
2026: when others then
2027: ame_util.runtimeException(packageNameIn => 'ame_engine',
2028: routineNameIn => 'getSublistOrderNum',
2029: exceptionNumberIn => sqlcode,
2030: exceptionStringIn => sqlerrm);
2031: raise;
2035: begin
2036: return(engTransactionID);
2037: exception
2038: when others then
2039: ame_util.runtimeException(packageNameIn => 'ame_engine',
2040: routineNameIn => 'getTransactionId',
2041: exceptionNumberIn => sqlcode,
2042: exceptionStringIn => sqlerrm);
2043: raise;
2047: begin
2048: return(engTransactionTypeID);
2049: exception
2050: when others then
2051: ame_util.runtimeException(packageNameIn => 'ame_engine',
2052: routineNameIn => 'getTransactionTypeId',
2053: exceptionNumberIn => sqlcode,
2054: exceptionStringIn => sqlerrm);
2055: raise;
2137: end if;
2138: return(true);
2139: exception
2140: when others then
2141: ame_util.runtimeException(packageNameIn => 'ame_engine',
2142: routineNameIn => 'compareApplicableRules',
2143: exceptionNumberIn => sqlcode,
2144: exceptionStringIn => sqlerrm);
2145: raise;
2196: errorCode := -20001;
2197: errorMessage :=
2198: ame_util.getMessage(applicationShortNameIn => 'PER',
2199: messageNameIn => 'AME_400118_ENG_LOOP_CHA_AUTH');
2200: ame_util.runtimeException(packageNameIn => 'ame_engine',
2201: routineNameIn => 'addApprover',
2202: exceptionNumberIn => errorCode,
2203: exceptionStringIn => errorMessage);
2204: raise_application_error(errorCode,
2206: when nullFieldException then
2207: errorCode := -20001;
2208: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
2209: messageNameIn => 'AME_400683_APPR_REC_INV');
2210: ame_util.runtimeException(packageNameIn => 'ame_engine',
2211: routineNameIn => 'addApprover',
2212: exceptionNumberIn => errorCode,
2213: exceptionStringIn => errorMessage);
2214: raise_application_error(errorCode,
2213: exceptionStringIn => errorMessage);
2214: raise_application_error(errorCode,
2215: errorMessage);
2216: when others then
2217: ame_util.runtimeException(packageNameIn => 'ame_engine',
2218: routineNameIn => 'addApprover',
2219: exceptionNumberIn => sqlcode,
2220: exceptionStringIn => sqlerrm);
2221: raise;
2230: engTempReason := null;
2231: engTempDate := null;
2232: exception
2233: when others then
2234: ame_util.runtimeException(packageNameIn => 'ame_engine',
2235: routineNameIn => 'addApproversTodevList',
2236: exceptionNumberIn => sqlcode,
2237: exceptionStringIn => sqlerrm);
2238: end addApproversTodevList;
2396: end loop;
2397: addApproversTodevList(approverRecordIndexIn => approverIndexIn);
2398: exception
2399: when others then
2400: ame_util.runtimeException(packageNameIn => 'ame_engine',
2401: routineNameIn => 'addApproverToTree',
2402: exceptionNumberIn => sqlcode,
2403: exceptionStringIn => sqlerrm);
2404: raise;
2423: ,approvalStatusOut => transactionApprovalStatus
2424: ,rejectedItemsExistOut => transactionhasSuspendedItems);
2425: engStApproversTree(1).status := transactionApprovalStatus;
2426: engStApproversTree(1).max_order := maximumApproverOrderNumber;
2427: stoppingRule := ame_engine.getHeaderAttValue2
2428: (attributeNameIn => ame_util.rejectionResponseAttribute);
2429: if transactionhasSuspendedItems then
2430: /* Check if any of the suspended item is a header item */
2431: /* If a header item is suspended then it is as good as */
2479: end if;
2480: end if;
2481: exception
2482: when others then
2483: ame_util.runtimeException(packageNameIn => 'ame_engine',
2484: routineNameIn => 'calculateApproverOrderNumbers',
2485: exceptionNumberIn => sqlcode,
2486: exceptionStringIn => sqlerrm);
2487: raise;
2525: ||approverIn.display_name
2526: ||' belongs to approver type '
2527: ||approverIn.orig_system
2528: ||' which is not registered in AME.';
2529: ame_util.runtimeException(packageNameIn => 'ame_engine',
2530: routineNameIn => 'checkApprover',
2531: exceptionNumberIn => errorCode,
2532: exceptionStringIn => errorMessage);
2533: raise_application_error(errorCode,
2538: ||approverIn.display_name
2539: ||' belongs to approver type '
2540: ||approverIn.orig_system
2541: ||'. And the allowAllApproverTypes configuration variable set to No.';
2542: ame_util.runtimeException(packageNameIn => 'ame_engine',
2543: routineNameIn => 'checkApprover',
2544: exceptionNumberIn => errorCode,
2545: exceptionStringIn => errorMessage);
2546: raise_application_error(errorCode,
2560: ((parameter is null and parameterIn is null) or
2561: (parameter = parameterIn));
2562: exception
2563: when others then
2564: ame_util.runtimeException(packageNameIn => 'ame_engine',
2565: routineNameIn => 'clearHandlerState',
2566: exceptionNumberIn => sqlcode,
2567: exceptionStringIn => sqlerrm);
2568: raise;
2627: engAppParameterTwos.delete(tempFirstIndex, tempLastIndex);
2628: end if;
2629: exception
2630: when others then
2631: ame_util.runtimeException(packageNameIn => 'ame_engine',
2632: routineNameIn => 'compactEngAppLists',
2633: exceptionNumberIn => sqlcode,
2634: exceptionStringIn => sqlerrm);
2635: raise;
2810: end if;
2811: end loop;
2812: exception
2813: when others then
2814: ame_util.runtimeException(packageNameIn => 'ame_engine',
2815: routineNameIn => 'doPerItemRuleEvaluation',
2816: exceptionNumberIn => sqlcode,
2817: exceptionStringIn => sqlerrm);
2818: raise;
2968: end if;
2969: end loop;
2970: exception
2971: when others then
2972: ame_util.runtimeException(packageNameIn => 'ame_engine',
2973: routineNameIn => 'doStrictHeaderRuleEvaluation',
2974: exceptionNumberIn => sqlcode,
2975: exceptionStringIn => sqlerrm);
2976: raise;
3168: end if;
3169: end loop;
3170: exception
3171: when others then
3172: ame_util.runtimeException(packageNameIn => 'ame_engine',
3173: routineNameIn => 'doWeakHeaderRuleEvaluation',
3174: exceptionNumberIn => sqlcode,
3175: exceptionStringIn => sqlerrm);
3176: raise;
3433: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
3434: if engAppRuleIds.count = 0 then
3435: fnd_log.string
3436: (fnd_log.level_statement
3437: ,'ame_engine.evaluateRules'
3438: ,'*********** No Rules Applicable ************'
3439: );
3440: else
3441: for i in 1 .. engAppRuleIds.count loop
3440: else
3441: for i in 1 .. engAppRuleIds.count loop
3442: fnd_log.string
3443: (fnd_log.level_statement
3444: ,'ame_engine.evaluateRules'
3445: ,'Applicable Rule ::: ' || engAppRuleIds(i)
3446: );
3447: end loop;
3448: end if;
3456: when noRulesException then
3457: errorCode := -20001;
3458: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
3459: messageNameIn => 'AME_400117_ENG_ONE_RULE_APPLY');
3460: ame_util.runtimeException(packageNameIn => 'ame_engine',
3461: routineNameIn => 'evaluateRules',
3462: exceptionNumberIn => errorCode,
3463: exceptionStringIn => errorMessage);
3464: raise_application_error(errorCode,
3466: when others then
3467: if(conditionlessRuleCursor%isopen) then
3468: close conditionlessRuleCursor;
3469: end if;
3470: ame_util.runtimeException(packageNameIn => 'ame_engine',
3471: routineNameIn => 'evaluateRules',
3472: exceptionNumberIn => sqlcode,
3473: exceptionStringIn => sqlerrm);
3474: raise;
3762: end if;
3763: if(activeCondStringValueCursor%isopen) then
3764: close activeCondStringValueCursor;
3765: end if;
3766: ame_util.runtimeException(packageNameIn => 'ame_engine',
3767: routineNameIn => 'fetchActiveConditionUsages',
3768: exceptionNumberIn => sqlcode,
3769: exceptionStringIn => sqlerrm);
3770: raise;
3902: when others then
3903: if(applicableActionsCursor%isopen) then
3904: close applicableActionsCursor;
3905: end if;
3906: ame_util.runtimeException(packageNameIn => 'ame_engine',
3907: routineNameIn => 'fetchApplicableActions',
3908: exceptionNumberIn => sqlcode,
3909: exceptionStringIn => sqlerrm);
3910: raise;
4070: end if;
4071: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4072: fnd_log.string
4073: (fnd_log.level_statement
4074: ,'ame_engine.fetchAttributeValues'
4075: ,'Attribute ::: ' || engAttributeNames(tempAttributeId) || '(' || tempAttributeId || ')'
4076: );
4077: end if;
4078: /*
4121: end if;
4122: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4123: fnd_log.string
4124: (fnd_log.level_statement
4125: ,'ame_engine.fetchAttributeValues'
4126: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4127: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4128: );
4129: end if;
4136: engAttributeValues3(tempAttributeValueIndex) := null;
4137: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4138: fnd_log.string
4139: (fnd_log.level_statement
4140: ,'ame_engine.fetchAttributeValues'
4141: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4142: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4143: );
4144: end if;
4170: engAttributeValues3(tempAttributeValueIndex) := tempAttributeValue3;
4171: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4172: fnd_log.string
4173: (fnd_log.level_statement
4174: ,'ame_engine.fetchAttributeValues'
4175: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4176: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4177: );
4178: end if;
4260: end if;
4261: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4262: fnd_log.string
4263: (fnd_log.level_statement
4264: ,'ame_engine.fetchAttributeValues'
4265: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4266: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4267: );
4268: end if;
4288: tempAttributeName := ame_attribute_pkg.getName(attributeIdIn => tempAttributeId);
4289: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4290: fnd_log.string
4291: (fnd_log.level_statement
4292: ,'ame_engine.fetchAttributeValues'
4293: ,'Attribute ::: ' || tempAttributeName || '(' || tempAttributeId || ')'||
4294: 'attribute returned ::'||tempAttributeValues1.count||'rows but the number of items for the '||
4295: 'itemclass ::'||engItemCounts(tempItemClassIndex)
4296: );
4300: ame_util.getMessage(applicationShortNameIn =>'PER',
4301: messageNameIn => 'AME_400684_ATR_INV_DYN_USG',
4302: tokenNameOneIn => 'ATTRIBUTE_NAME',
4303: tokenValueOneIn => tempAttributeName);
4304: ame_util.runtimeException(packageNameIn => 'ame_engine',
4305: routineNameIn => 'fetchAttributeValues',
4306: exceptionNumberIn => errorCode,
4307: exceptionStringIn => errorMessage);
4308: raise_application_error(errorCode,
4324: errorMessage := sqlerrm;
4325: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4326: fnd_log.string
4327: (fnd_log.level_statement
4328: ,'ame_engine.fetchAttributeValues'
4329: ,'Attribute ::: ' || tempAttributeName || '(' || tempAttributeId || '),error:'||errorMessage
4330: );
4331: end if;
4332: ame_util.runtimeException(packageNameIn => 'ame_engine',
4328: ,'ame_engine.fetchAttributeValues'
4329: ,'Attribute ::: ' || tempAttributeName || '(' || tempAttributeId || '),error:'||errorMessage
4330: );
4331: end if;
4332: ame_util.runtimeException(packageNameIn => 'ame_engine',
4333: routineNameIn => 'fetchAttributeValues',
4334: exceptionNumberIn => sqlcode,
4335: exceptionStringIn => errorMessage);
4336: raise;
4530: end if;
4531: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4532: fnd_log.string
4533: (fnd_log.level_statement
4534: ,'ame_engine.fetchOtherAttributeValues'
4535: ,'Attribute ::: ' || engAttributeNames(tempAttributeId) || '(' || tempAttributeId || ')'
4536: );
4537: end if;
4538: /*
4581: end if;
4582: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4583: fnd_log.string
4584: (fnd_log.level_statement
4585: ,'ame_engine.fetchOtherAttributeValues'
4586: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4587: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4588: );
4589: end if;
4596: engAttributeValues3(tempAttributeValueIndex) := null;
4597: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4598: fnd_log.string
4599: (fnd_log.level_statement
4600: ,'ame_engine.fetchOtherAttributeValues'
4601: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4602: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4603: );
4604: end if;
4630: engAttributeValues3(tempAttributeValueIndex) := tempAttributeValue3;
4631: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4632: fnd_log.string
4633: (fnd_log.level_statement
4634: ,'ame_engine.fetchOtherAttributeValues'
4635: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4636: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4637: );
4638: end if;
4720: end if;
4721: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
4722: fnd_log.string
4723: (fnd_log.level_statement
4724: ,'ame_engine.fetchOtherAttributeValues'
4725: ,'Attribute Value :' || engAttributeValues1(tempAttributeValueIndex) ||
4726: ':' || engAttributeValues2(tempAttributeValueIndex) || ':' || engAttributeValues3(tempAttributeValueIndex) || ':'
4727: );
4728: end if;
4751: ame_util.getMessage(applicationShortNameIn =>'PER',
4752: messageNameIn => 'AME_400684_ATR_INV_DYN_USG',
4753: tokenNameOneIn => 'ATTRIBUTE_NAME',
4754: tokenValueOneIn => tempAttributeName);
4755: ame_util.runtimeException(packageNameIn => 'ame_engine',
4756: routineNameIn => 'fetchOtherAttributeValues',
4757: exceptionNumberIn => errorCode,
4758: exceptionStringIn => errorMessage);
4759: raise_application_error(errorCode,
4770: end if;
4771: if(testTransNonCurrencyCursor%isopen) then
4772: close testTransNonCurrencyCursor;
4773: end if;
4774: ame_util.runtimeException(packageNameIn => 'ame_engine',
4775: routineNameIn => 'fetchOtherAttributeValues',
4776: exceptionNumberIn => sqlcode,
4777: exceptionStringIn => sqlerrm);
4778: raise;
4904: end if;
4905: if(configVarCursor%isopen) then
4906: close configVarCursor;
4907: end if;
4908: ame_util.runtimeException(packageNameIn => 'ame_engine',
4909: routineNameIn => 'fetchConfigVars',
4910: exceptionNumberIn => sqlcode,
4911: exceptionStringIn => sqlerrm);
4912: raise;
4967: when others then
4968: if(deletedApproversCursor%isopen) then
4969: close deletedApproversCursor;
4970: end if;
4971: ame_util.runtimeException(packageNameIn => 'ame_engine',
4972: routineNameIn => 'fetchDeletedApprovers',
4973: exceptionNumberIn => sqlcode,
4974: exceptionStringIn => sqlerrm);
4975: raise;
5040: when others then
5041: if(insertedApproversCursor%isopen) then
5042: close insertedApproversCursor;
5043: end if;
5044: ame_util.runtimeException(packageNameIn => 'ame_engine',
5045: routineNameIn => 'fetchInsertedApprovers',
5046: exceptionNumberIn => sqlcode,
5047: exceptionStringIn => sqlerrm);
5048: raise;
5196: end if;
5197: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
5198: fnd_log.string
5199: (fnd_log.level_statement
5200: ,'ame_engine.fetchItemClassData'
5201: ,'Item Class ::' || engItemClassNames(i) ||
5202: ':' || 'has ' || ':' || engItemCounts(i) || ':items'
5203: );
5204: end if;
5210: end if;
5211: if(testTransItemIdCursor%isopen) then
5212: close testTransItemIdCursor;
5213: end if;
5214: ame_util.runtimeException(packageNameIn => 'ame_engine',
5215: routineNameIn => 'fetchItemClassData',
5216: exceptionNumberIn => sqlcode,
5217: exceptionStringIn => sqlerrm);
5218: raise;
5236: nvl(end_date - ame_util.oneSecond, sysdate) and
5237: rownum < 2; /* Avoids second fetch otherwise required by ANSI standard to check for too many rows. */
5238: exception
5239: when others then
5240: ame_util.runtimeException(packageNameIn => 'ame_engine',
5241: routineNameIn => 'fetchFndApplicationId',
5242: exceptionNumberIn => sqlcode,
5243: exceptionStringIn => sqlerrm);
5244: fndApplicationIdOut := null;
5314: when others then
5315: if(oldApproversCursor%isopen) then
5316: close oldApproversCursor;
5317: end if;
5318: ame_util.runtimeException(packageNameIn => 'ame_engine',
5319: routineNameIn => 'fetchOldApprovers',
5320: exceptionNumberIn => sqlcode,
5321: exceptionStringIn => sqlerrm);
5322: raise;
5363: begin
5364: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
5365: fnd_log.string
5366: (fnd_log.level_statement
5367: ,'ame_engine.fetchRuntimeGroup'
5368: ,'evaluating the group::'||ame_approval_group_pkg.getName(approvalGroupIdIn => groupIdIn
5369: ,effectiveDateIn => engEffectiveRuleDate)
5370: );
5371: end if;
5511: end loop;
5512: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
5513: fnd_log.string
5514: (fnd_log.level_statement
5515: ,'ame_engine.fetchRuntimeGroup'
5516: ,'Completed the group evaluation::'||ame_approval_group_pkg.getName(approvalGroupIdIn => groupIdIn
5517: ,effectiveDateIn => engEffectiveRuleDate)
5518: );
5519: end if;
5524: messageNameIn => 'AME_400771_ENG_INVALID_DYN_GRP',
5525: tokenNameOneIn => 'GROUP_NAME',
5526: tokenValueOneIn => ame_approval_group_pkg.getName(approvalGroupIdIn => groupIdIn
5527: ,effectiveDateIn => engEffectiveRuleDate));
5528: ame_util.runtimeException(packageNameIn => 'ame_engine',
5529: routineNameIn => 'fetchRuntimeGroup',
5530: exceptionNumberIn => errorCode,
5531: exceptionStringIn => errorMessage);
5532: raise_application_error(errorCode,
5534: when others then
5535: if(groupMemberCursor%isopen) then
5536: close groupMemberCursor;
5537: end if;
5538: ame_util.runtimeException(packageNameIn => 'ame_engine',
5539: routineNameIn => 'fetchRuntimeGroup',
5540: exceptionNumberIn => sqlcode,
5541: exceptionStringIn => sqlerrm);
5542: raise;
5639: else
5640: engStApproversTree(currentTreeNodeIndex).min_order
5641: := maximumOrderOfChildren + 1;
5642: end if;
5643: ame_engine.finalizeTree
5644: (parentIndexIn => currentTreeNodeIndex
5645: ,maximumOrderOut => engStApproversTree(currentTreeNodeIndex).max_order
5646: ,approvalStatusOut => engStApproversTree(currentTreeNodeIndex).status
5647: ,rejectedItemsExistOut => hasRejectedChildren);
5687: end if;
5688: end if;
5689: exception
5690: when others then
5691: ame_util.runtimeException(packageNameIn => 'ame_engine',
5692: routineNameIn => 'finalizeTree',
5693: exceptionNumberIn => sqlcode,
5694: exceptionStringIn => sqlerrm);
5695: raise;
5702: transactionTypeIn => engTransactionTypeId,
5703: approversOut => approversOut);
5704: exception
5705: when others then
5706: ame_util.runtimeException(packageNameIn => 'ame_engine',
5707: routineNameIn => 'getAllApprovers',
5708: exceptionNumberIn => sqlcode,
5709: exceptionStringIn => sqlerrm);
5710: raise;
5738: end if;
5739: end loop;
5740: exception
5741: when others then
5742: ame_util.runtimeException(packageNameIn => 'ame_engine',
5743: routineNameIn => 'getApplicableRules',
5744: exceptionNumberIn => sqlcode,
5745: exceptionStringIn => sqlerrm);
5746: raise;
5813: when others then
5814: if(approvalGroupConfigCursor%isopen) then
5815: close approvalGroupConfigCursor;
5816: end if;
5817: ame_util.runtimeException(packageNameIn => 'ame_engine',
5818: routineNameIn => 'getApprovalGroupConfigs',
5819: exceptionNumberIn => sqlcode,
5820: exceptionStringIn => sqlerrm);
5821: raise;
5858: approversOut(i).approver_order_number := engStApprovers(i).approver_order_number;
5859: end loop;
5860: exception
5861: when others then
5862: ame_util.runtimeException(packageNameIn => 'ame_engine',
5863: routineNameIn => 'getApprovers',
5864: exceptionNumberIn => sqlcode,
5865: exceptionStringIn => sqlerrm);
5866: raise;
5913: end loop;
5914: end if;
5915: exception
5916: when others then
5917: ame_util.runtimeException(packageNameIn => 'ame_engine',
5918: routineNameIn => 'getApprovers2',
5919: exceptionNumberIn => sqlcode,
5920: exceptionStringIn => sqlerrm);
5921: raise;
5953: end if;
5954: end loop;
5955: exception
5956: when others then
5957: ame_util.runtimeException(packageNameIn => 'ame_engine',
5958: routineNameIn => 'getHandlerCOAFirstApprover',
5959: exceptionNumberIn => sqlcode,
5960: exceptionStringIn => sqlerrm);
5961: raise;
6008: end if;
6009: end loop;
6010: exception
6011: when others then
6012: ame_util.runtimeException(packageNameIn => 'ame_engine',
6013: routineNameIn => 'getHandlerCOAInsertion',
6014: exceptionNumberIn => sqlcode,
6015: exceptionStringIn => sqlerrm);
6016: raise;
6030: parameterTwosOut(outputIndex) := engAppParameterTwos(i);
6031: end loop;
6032: exception
6033: when others then
6034: ame_util.runtimeException(packageNameIn => 'ame_engine',
6035: routineNameIn => 'getHandlerRules',
6036: exceptionNumberIn => sqlcode,
6037: exceptionStringIn => sqlerrm);
6038: raise;
6050: parametersOut(outputIndex) := engAppParameters(i);
6051: end loop;
6052: exception
6053: when others then
6054: ame_util.runtimeException(packageNameIn => 'ame_engine',
6055: routineNameIn => 'getHandlerRules2',
6056: exceptionNumberIn => sqlcode,
6057: exceptionStringIn => sqlerrm);
6058: raise;
6075: parameterTwoOut => listModParameterTwosOut(outputIndex));
6076: end loop;
6077: exception
6078: when others then
6079: ame_util.runtimeException(packageNameIn => 'ame_engine',
6080: routineNameIn => 'getHandlerRules3',
6081: exceptionNumberIn => sqlcode,
6082: exceptionStringIn => sqlerrm);
6083: raise;
6163: end if;
6164: end loop;
6165: exception
6166: when others then
6167: ame_util.runtimeException(packageNameIn => 'ame_engine',
6168: routineNameIn => 'getHandlerLMApprovers',
6169: exceptionNumberIn => sqlcode,
6170: exceptionStringIn => sqlerrm);
6171: raise;
6181: attributeValue2Out := engAttributeValues2(attributeValueIndex);
6182: attributeValue3Out := engAttributeValues3(attributeValueIndex);
6183: exception
6184: when others then
6185: ame_util.runtimeException(packageNameIn => 'ame_engine',
6186: routineNameIn => 'getHeaderAttValues1',
6187: exceptionNumberIn => sqlcode,
6188: exceptionStringIn => sqlerrm);
6189: raise;
6208: attributeValue3Out := engAttributeValues3(attributeValueIndex);
6209: end if;
6210: exception
6211: when others then
6212: ame_util.runtimeException(packageNameIn => 'ame_engine',
6213: routineNameIn => 'getHeaderAttValues2',
6214: exceptionNumberIn => sqlcode,
6215: exceptionStringIn => sqlerrm);
6216: raise;
6221: itemAppProcessCompleteYNOut(i) := engStItemAppProcessCompleteYN(i);
6222: end loop;
6223: exception
6224: when others then
6225: ame_util.runtimeException(packageNameIn => 'ame_engine',
6226: routineNameIn => 'getItemAppProcessCompleteYN',
6227: exceptionNumberIn => sqlcode,
6228: exceptionStringIn => sqlerrm);
6229: raise;
6243: attributeValue2Out := engAttributeValues2(attributeValueIndex);
6244: attributeValue3Out := engAttributeValues3(attributeValueIndex);
6245: exception
6246: when others then
6247: ame_util.runtimeException(packageNameIn => 'ame_engine',
6248: routineNameIn => 'getItemAttValues1',
6249: exceptionNumberIn => sqlcode,
6250: exceptionStringIn => sqlerrm);
6251: raise;
6267: attributeValue2Out := engAttributeValues2(attributeValueIndex);
6268: attributeValue3Out := engAttributeValues3(attributeValueIndex);
6269: exception
6270: when others then
6271: ame_util.runtimeException(packageNameIn => 'ame_engine',
6272: routineNameIn => 'getItemAttValues2',
6273: exceptionNumberIn => sqlcode,
6274: exceptionStringIn => sqlerrm);
6275: raise;
6289: attributeValue2Out := engAttributeValues2(attributeValueIndex);
6290: attributeValue3Out := engAttributeValues3(attributeValueIndex);
6291: exception
6292: when others then
6293: ame_util.runtimeException(packageNameIn => 'ame_engine',
6294: routineNameIn => 'getItemAttValues3',
6295: exceptionNumberIn => sqlcode,
6296: exceptionStringIn => sqlerrm);
6297: raise;
6310: attributeValuesOut(outputIndex) := engAttributeValues1(i);
6311: end loop;
6312: exception
6313: when others then
6314: ame_util.runtimeException(packageNameIn => 'ame_engine',
6315: routineNameIn => 'getItemClassAttValues1',
6316: exceptionNumberIn => sqlcode,
6317: exceptionStringIn => sqlerrm);
6318: raise;
6333: attributeValuesOut(outputIndex) := engAttributeValues1(i);
6334: end loop;
6335: exception
6336: when others then
6337: ame_util.runtimeException(packageNameIn => 'ame_engine',
6338: routineNameIn => 'getItemClassAttValues2',
6339: exceptionNumberIn => sqlcode,
6340: exceptionStringIn => sqlerrm);
6341: raise;
6358: attributeValues3Out(outputIndex) := engAttributeValues3(i);
6359: end loop;
6360: exception
6361: when others then
6362: ame_util.runtimeException(packageNameIn => 'ame_engine',
6363: routineNameIn => 'getItemClassAttValues3',
6364: exceptionNumberIn => sqlcode,
6365: exceptionStringIn => sqlerrm);
6366: raise;
6385: attributeValues3Out(outputIndex) := engAttributeValues3(i);
6386: end loop;
6387: exception
6388: when others then
6389: ame_util.runtimeException(packageNameIn => 'ame_engine',
6390: routineNameIn => 'getItemClassAttValues4',
6391: exceptionNumberIn => sqlcode,
6392: exceptionStringIn => sqlerrm);
6393: raise;
6411: end if;
6412: exception
6413: when others then
6414: itemIdsOut.delete;
6415: ame_util.runtimeException(packageNameIn => 'ame_engine',
6416: routineNameIn => 'getItemClassItemIds',
6417: exceptionNumberIn => sqlcode,
6418: exceptionStringIn => sqlerrm);
6419: raise;
6424: itemClassesOut(i) := engStItemClasses(i);
6425: end loop;
6426: exception
6427: when others then
6428: ame_util.runtimeException(packageNameIn => 'ame_engine',
6429: routineNameIn => 'getItemClasses',
6430: exceptionNumberIn => sqlcode,
6431: exceptionStringIn => sqlerrm);
6432: raise;
6437: itemIdsOut(i) := engStItemIds(i);
6438: end loop;
6439: exception
6440: when others then
6441: ame_util.runtimeException(packageNameIn => 'ame_engine',
6442: routineNameIn => 'getItemIds',
6443: exceptionNumberIn => sqlcode,
6444: exceptionStringIn => sqlerrm);
6445: raise;
6450: itemIndexesOut(i) := engStItemIndexes(i);
6451: end loop;
6452: exception
6453: when others then
6454: ame_util.runtimeException(packageNameIn => 'ame_engine',
6455: routineNameIn => 'getItemIndexes',
6456: exceptionNumberIn => sqlcode,
6457: exceptionStringIn => sqlerrm);
6458: raise;
6463: itemSourcesOut(i) := engStItemSources(i);
6464: end loop;
6465: exception
6466: when others then
6467: ame_util.runtimeException(packageNameIn => 'ame_engine',
6468: routineNameIn => 'getItemSources',
6469: exceptionNumberIn => sqlcode,
6470: exceptionStringIn => sqlerrm);
6471: raise;
6484: end loop;
6485: end loop;
6486: exception
6487: when others then
6488: ame_util.runtimeException(packageNameIn => 'ame_engine',
6489: routineNameIn => 'getAllItemClasses',
6490: exceptionNumberIn => sqlcode,
6491: exceptionStringIn => sqlerrm);
6492: raise;
6497: itemIdsOut(i) := engItemIds(i);
6498: end loop;
6499: exception
6500: when others then
6501: ame_util.runtimeException(packageNameIn => 'ame_engine',
6502: routineNameIn => 'getAllItemIds',
6503: exceptionNumberIn => sqlcode,
6504: exceptionStringIn => sqlerrm);
6505: raise;
6541: tempParameter := positionIn;
6542: if (engStApproversCount = 0) then
6543:
6544: /* pre-approver */
6545: if (not ame_engine.insertionExists
6546: (orderTypeIn => ame_util.absoluteOrder
6547: ,parameterIn => tempParameter
6548: )) then
6549: availableInsertionsIndex := availableInsertionsIndex + 1;
6559: ame_util.absoluteOrderDescription || positionIn || '. ';
6560: end if;
6561:
6562: /* authority approver */
6563: if (not ame_engine.insertionExists
6564: (orderTypeIn => ame_util.absoluteOrder
6565: ,parameterIn => tempParameter
6566: )) then
6567: availableInsertionsIndex := availableInsertionsIndex + 1;
6577: ame_util.absoluteOrderDescription || positionIn || '. ';
6578: end if;
6579:
6580: /* post approver */
6581: if (not ame_engine.insertionExists
6582: (orderTypeIn => ame_util.absoluteOrder
6583: ,parameterIn => tempParameter
6584: )) then
6585: availableInsertionsIndex := availableInsertionsIndex + 1;
6599:
6600: if (positionIn < engStApproversCount + 1) then
6601:
6602: /* Attribute to the insertee the relevant properties of the approver at positionIn. */
6603: if (not ame_engine.insertionExists
6604: (orderTypeIn => ame_util.absoluteOrder
6605: ,parameterIn => tempParameter
6606: )) then
6607: availableInsertionsIndex := availableInsertionsIndex + 1;
6633: engStApprovers(positionIn).item_class <> engStApprovers(positionIn - 1).item_class
6634: ))) then
6635:
6636: /* Attribute to the insertee the relevant properties of the approver at positionIn - 1. */
6637: if (not ame_engine.insertionExists
6638: (orderTypeIn => ame_util.absoluteOrder
6639: ,parameterIn => tempParameter
6640: )) then
6641: availableInsertionsIndex := availableInsertionsIndex + 1;
6686: engStApprovers(positionIn - 1).group_or_chain_id ||
6687: ame_util.fieldDelimiter ||
6688: engStApprovers(positionIn - 1).occurrence;
6689:
6690: if (not ame_engine.insertionExists
6691: (orderTypeIn => ame_util.afterApprover
6692: ,parameterIn => tempParameter
6693: )) then
6694: availableInsertionsIndex := availableInsertionsIndex + 1;
6711: if (engStApprovers(positionIn).authority = ame_util.authorityApprover and
6712: engStApprovers(positionIn).api_insertion <> ame_util.apiInsertion and
6713: engStApprovers(positionIn).approver_category = ame_util.approvalApproverCategory and
6714: coaInsertionsYNIn = ame_util.booleanTrue and
6715: (not ame_engine.insertionExists
6716: (orderTypeIn => ame_util.afterApprover
6717: ,parameterIn => tempParameter
6718: ))) then /* COA */
6719: availableInsertionsIndex := availableInsertionsIndex + 1;
6765: engStApprovers(positionIn).group_or_chain_id ||
6766: ame_util.fieldDelimiter ||
6767: engStApprovers(positionIn).occurrence;
6768:
6769: if (not ame_engine.insertionExists
6770: (orderTypeIn => ame_util.beforeApprover
6771: ,parameterIn => tempParameter
6772: )) then
6773: availableInsertionsIndex := availableInsertionsIndex + 1;
6823: engStApprovers(positionIn).action_type_id ||
6824: ame_util.fieldDelimiter ||
6825: engStApprovers(positionIn).group_or_chain_id;
6826:
6827: if (not ame_engine.insertionExists
6828: (orderTypeIn => ame_util.firstAuthority
6829: ,parameterIn => tempParameter
6830: )) then
6831: availableInsertionsIndex := availableInsertionsIndex + 1;
6885: ame_util.headerItemClassName ||
6886: ame_util.fieldDelimiter ||
6887: engTransactionId;
6888:
6889: if (not ame_engine.insertionExists
6890: (orderTypeIn => ame_util.firstPostApprover
6891: ,parameterIn => tempParameter
6892: )) then
6893: availableInsertionsIndex := availableInsertionsIndex + 1;
6907: ame_util.fieldDelimiter ||
6908: engStApprovers(engStApproversCount).item_class ||
6909: ame_util.fieldDelimiter ||
6910: engStApprovers(engStApproversCount).item_id;
6911: if (not ame_engine.insertionExists
6912: (orderTypeIn => ame_util.firstPostApprover
6913: ,parameterIn => tempParameter
6914: )) then
6915: availableInsertionsIndex := availableInsertionsIndex + 1;
6932: ame_util.fieldDelimiter ||
6933: engStApprovers(1).item_class ||
6934: ame_util.fieldDelimiter ||
6935: engStApprovers(1).item_id;
6936: if (not ame_engine.insertionExists
6937: (orderTypeIn => ame_util.firstPostApprover
6938: ,parameterIn => tempParameter
6939: )) then
6940: availableInsertionsIndex := availableInsertionsIndex + 1;
6958: ame_util.fieldDelimiter ||
6959: engStApprovers(positionIn).item_class ||
6960: ame_util.fieldDelimiter ||
6961: engStApprovers(positionIn).item_id;
6962: if (not ame_engine.insertionExists
6963: (orderTypeIn => ame_util.firstPostApprover
6964: ,parameterIn => tempParameter
6965: )) then
6966: availableInsertionsIndex := availableInsertionsIndex + 1;
6983: ame_util.fieldDelimiter ||
6984: engStApprovers(positionIn).item_class ||
6985: ame_util.fieldDelimiter ||
6986: engStApprovers(positionIn).item_id;
6987: if (not ame_engine.insertionExists
6988: (orderTypeIn => ame_util.firstPostApprover
6989: ,parameterIn => tempParameter
6990: )) then
6991: availableInsertionsIndex := availableInsertionsIndex + 1;
7006: ame_util.fieldDelimiter ||
7007: engStApprovers(positionIn - 1).item_class ||
7008: ame_util.fieldDelimiter ||
7009: engStApprovers(positionIn - 1).item_id;
7010: if (not ame_engine.insertionExists
7011: (orderTypeIn => ame_util.firstPostApprover
7012: ,parameterIn => tempParameter
7013: )) then
7014: availableInsertionsIndex := availableInsertionsIndex + 1;
7050: ame_util.fieldDelimiter ||
7051: ame_util.headerItemClassName ||
7052: ame_util.fieldDelimiter ||
7053: engTransactionId;
7054: if (not ame_engine.insertionExists
7055: (orderTypeIn => ame_util.firstPreApprover
7056: ,parameterIn => tempParameter
7057: )) then
7058: availableInsertionsIndex := availableInsertionsIndex + 1;
7071: ame_util.fieldDelimiter ||
7072: engStApprovers(1).item_class ||
7073: ame_util.fieldDelimiter ||
7074: engStApprovers(1).item_id;
7075: if (not ame_engine.insertionExists
7076: (orderTypeIn => ame_util.firstPreApprover
7077: ,parameterIn => tempParameter
7078: )) then
7079: availableInsertionsIndex := availableInsertionsIndex + 1;
7094: ame_util.fieldDelimiter ||
7095: engStApprovers(positionIn).item_class ||
7096: ame_util.fieldDelimiter ||
7097: engStApprovers(positionIn).item_id;
7098: if (not ame_engine.insertionExists
7099: (orderTypeIn => ame_util.firstPreApprover
7100: ,parameterIn => tempParameter
7101: )) then
7102: availableInsertionsIndex := availableInsertionsIndex + 1;
7136: ame_util.fieldDelimiter ||
7137: ame_util.headerItemClassName ||
7138: ame_util.fieldDelimiter ||
7139: engTransactionId;
7140: if (not ame_engine.insertionExists
7141: (orderTypeIn => ame_util.lastPostApprover
7142: ,parameterIn => tempParameter
7143: )) then
7144: availableInsertionsIndex := availableInsertionsIndex + 1;
7157: ame_util.fieldDelimiter ||
7158: engStApprovers(engStApproversCount).item_class ||
7159: ame_util.fieldDelimiter ||
7160: engStApprovers(engStApproversCount).item_id;
7161: if (not ame_engine.insertionExists
7162: (orderTypeIn => ame_util.lastPostApprover
7163: ,parameterIn => tempParameter
7164: )) then
7165: availableInsertionsIndex := availableInsertionsIndex + 1;
7180: ame_util.fieldDelimiter ||
7181: engStApprovers(positionIn - 1).item_class ||
7182: ame_util.fieldDelimiter ||
7183: engStApprovers(positionIn - 1).item_id;
7184: if (not ame_engine.insertionExists
7185: (orderTypeIn => ame_util.lastPostApprover
7186: ,parameterIn => tempParameter
7187: )) then
7188: availableInsertionsIndex := availableInsertionsIndex + 1;
7231: ame_util.fieldDelimiter ||
7232: ame_util.headerItemClassName ||
7233: ame_util.fieldDelimiter ||
7234: engTransactionId;
7235: if (not ame_engine.insertionExists
7236: (orderTypeIn => ame_util.lastPreApprover
7237: ,parameterIn => tempParameter)) then
7238: availableInsertionsIndex := availableInsertionsIndex + 1;
7239: availableInsertionsOut(availableInsertionsIndex).item_class := ame_util.headerItemClassName;
7252: ame_util.fieldDelimiter ||
7253: engStApprovers(1).item_class ||
7254: ame_util.fieldDelimiter ||
7255: engStApprovers(1).item_id;
7256: if (not ame_engine.insertionExists
7257: (orderTypeIn => ame_util.lastPreApprover
7258: ,parameterIn => tempParameter
7259: )) then
7260: availableInsertionsIndex := availableInsertionsIndex + 1;
7278: ame_util.fieldDelimiter ||
7279: engStApprovers(positionIn).item_class ||
7280: ame_util.fieldDelimiter ||
7281: engStApprovers(positionIn).item_id;
7282: if (not ame_engine.insertionExists
7283: (orderTypeIn => ame_util.lastPreApprover
7284: ,parameterIn => tempParameter
7285: )) then
7286: availableInsertionsIndex := availableInsertionsIndex + 1;
7301: ame_util.fieldDelimiter ||
7302: engStApprovers(positionIn).item_class ||
7303: ame_util.fieldDelimiter ||
7304: engStApprovers(positionIn).item_id;
7305: if (not ame_engine.insertionExists
7306: (orderTypeIn => ame_util.lastPreApprover
7307: ,parameterIn => tempParameter
7308: )) then
7309: availableInsertionsIndex := availableInsertionsIndex + 1;
7329: (applicationShortNameIn =>'PER'
7330: ,messageNameIn => 'AME_400418_INVALID_INSERTION'
7331: );
7332: ame_util.runtimeException
7333: (packageNameIn => 'ame_engine'
7334: ,routineNameIn => 'getInsertions'
7335: ,exceptionNumberIn => errorCode
7336: ,exceptionStringIn => errorMessage
7337: );
7338: raise_application_error(errorCode,errorMessage);
7339:
7340: when others then
7341: ame_util.runtimeException
7342: (packageNameIn => 'ame_engine'
7343: ,routineNameIn => 'getInsertions'
7344: ,exceptionNumberIn => sqlcode
7345: ,exceptionStringIn => sqlerrm
7346: );
7397: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
7398: messageNameIn => 'AME_400685_INV_LM_RULE',
7399: tokenNameOneIn => 'RULE_KEY',
7400: tokenValueOneIn => tempRuleKey);
7401: ame_util.runtimeException(packageNameIn => 'ame_engine',
7402: routineNameIn => 'getLMCondition',
7403: exceptionNumberIn => errorCode,
7404: exceptionStringIn => errorMessage);
7405: raise_application_error(errorCode,
7404: exceptionStringIn => errorMessage);
7405: raise_application_error(errorCode,
7406: errorMessage);
7407: when others then
7408: ame_util.runtimeException(packageNameIn => 'ame_engine',
7409: routineNameIn => 'getLMCondition',
7410: exceptionNumberIn => sqlcode,
7411: exceptionStringIn => sqlerrm);
7412: raise;
7474: end if;
7475: if nextApproversType = 3 then
7476: tempProcessProductionRules := true;
7477: end if;
7478: ame_engine.lockTransaction(fndApplicationIdIn => applicationIdIn,
7479: transactionIdIn => transactionIdIn,
7480: transactionTypeIdIn => transactionTypeIn);
7481: ame_engine.updateTransactionState(isTestTransactionIn => false
7482: ,isLocalTransactionIn => false
7477: end if;
7478: ame_engine.lockTransaction(fndApplicationIdIn => applicationIdIn,
7479: transactionIdIn => transactionIdIn,
7480: transactionTypeIdIn => transactionTypeIn);
7481: ame_engine.updateTransactionState(isTestTransactionIn => false
7482: ,isLocalTransactionIn => false
7483: ,fetchConfigVarsIn => true
7484: ,fetchOldApproversIn => true
7485: ,fetchInsertionsIn => true
7498: ,transactionIdIn => transactionIdIn
7499: ,ameApplicationIdIn => null
7500: ,fndApplicationIdIn => applicationIdIn
7501: ,transactionTypeIdIn => transactionTypeIn);
7502: approvalProcessCompleteYNOut := ame_engine.getApprovalProcessCompleteYN;
7503: ameApplicationId := ame_engine.getAmeApplicationId;
7504: /* If approvalProcessCompleteYNOut is 'Y', there should be no nextApprovers. Hence
7505: return with an empty nextApproversOut table */
7506: if approvalProcessCompleteYNOut = ame_util2.completeFullyApproved or
7499: ,ameApplicationIdIn => null
7500: ,fndApplicationIdIn => applicationIdIn
7501: ,transactionTypeIdIn => transactionTypeIn);
7502: approvalProcessCompleteYNOut := ame_engine.getApprovalProcessCompleteYN;
7503: ameApplicationId := ame_engine.getAmeApplicationId;
7504: /* If approvalProcessCompleteYNOut is 'Y', there should be no nextApprovers. Hence
7505: return with an empty nextApproversOut table */
7506: if approvalProcessCompleteYNOut = ame_util2.completeFullyApproved or
7507: approvalProcessCompleteYNOut = ame_util2.completeFullyRejected or
7506: if approvalProcessCompleteYNOut = ame_util2.completeFullyApproved or
7507: approvalProcessCompleteYNOut = ame_util2.completeFullyRejected or
7508: approvalProcessCompleteYNOut = ame_util2.completePartiallyApproved or
7509: approvalProcessCompleteYNOut = ame_util2.completeNoApprovers then
7510: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
7511: transactionIdIn => transactionIdIn,
7512: transactionTypeIdIn => transactionTypeIn);
7513: return;
7514: end if;
7758: /* approvers to find */
7759: exit when nextTreeNodeIndex = ame_util.invalidTreeIndex;
7760: end loop;
7761: if copyAncillaryData and nextApproversType < 4 then
7762: ame_engine.prepareItemData(approverIndexesIn => tempApproverIndexes
7763: ,itemIndexesOut => itemIndexesOut
7764: ,itemItemClassesOut => itemClassesOut
7765: ,itemIdsOut => itemIdsOut
7766: ,itemSourcesOut => itemSourcesOut);
7778: getTransVariableNames(transVariableNamesOut => transVariableNamesOut);
7779: getTransVariableValues(transVariableValuesOut => transVariableValuesOut);
7780: end if;
7781: if flagApproversAsNotifiedIn = ame_util.booleanTrue then
7782: ameApplicationId := ame_engine.getAmeApplicationId;
7783: for i in 1 .. nextApproversOut.count loop
7784: update ame_temp_old_approver_lists
7785: set approval_status = ame_util.notifiedStatus
7786: where item_class = nextApproversOut(i).item_class
7826: if nextApproversOut(x).approval_status = ame_util.repeatedStatus then
7827: nextApproversOut(x).approval_status := null;
7828: end if;
7829: end loop;
7830: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
7831: transactionIdIn => transactionIdIn,
7832: transactionTypeIdIn => transactionTypeIn);
7833: exception
7834: when others then
7831: transactionIdIn => transactionIdIn,
7832: transactionTypeIdIn => transactionTypeIn);
7833: exception
7834: when others then
7835: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
7836: transactionIdIn => transactionIdIn,
7837: transactionTypeIdIn => transactionTypeIn);
7838: ame_util.runtimeException(packageNameIn => 'ame_engine',
7839: routineNameIn => 'getNextApprovers',
7834: when others then
7835: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
7836: transactionIdIn => transactionIdIn,
7837: transactionTypeIdIn => transactionTypeIn);
7838: ame_util.runtimeException(packageNameIn => 'ame_engine',
7839: routineNameIn => 'getNextApprovers',
7840: exceptionNumberIn => sqlcode,
7841: exceptionStringIn => sqlerrm);
7842: approvalProcessCompleteYNOut:= null;
7956: end if;
7957: end loop;
7958: exception
7959: when others then
7960: ame_util.runtimeException(packageNameIn => 'ame_engine',
7961: routineNameIn => 'prepareItemData',
7962: exceptionNumberIn => sqlcode,
7963: exceptionStringIn => sqlerrm);
7964: itemIndexesOut.delete;
8083: end loop;
8084: end loop;
8085: exception
8086: when others then
8087: ame_util.runtimeException(packageNameIn => 'ame_engine',
8088: routineNameIn => 'preparePerApproverProductions',
8089: exceptionNumberIn => sqlcode,
8090: exceptionStringIn => sqlerrm);
8091: prodIndexesOut.delete;
8173: end loop;
8174: end loop;
8175: exception
8176: when others then
8177: ame_util.runtimeException(packageNameIn => 'ame_engine',
8178: routineNameIn => 'prepareRuleData',
8179: exceptionNumberIn => sqlcode,
8180: exceptionStringIn => sqlerrm);
8181: engStRuleDescriptions.delete;
8189: productionIndexesOut(i) := engStProductionIndexes(i);
8190: end loop;
8191: exception
8192: when others then
8193: ame_util.runtimeException(packageNameIn => 'ame_engine',
8194: routineNameIn => 'getProductionIndexes',
8195: exceptionNumberIn => sqlcode,
8196: exceptionStringIn => sqlerrm);
8197: raise;
8206: repeatedAppIndexesOut(i) := engStRepeatedAppIndexes(i);
8207: end loop;
8208: exception
8209: when others then
8210: ame_util.runtimeException(packageNameIn => 'ame_engine',
8211: routineNameIn => 'getRepeatedIndexes',
8212: exceptionNumberIn => sqlcode,
8213: exceptionStringIn => sqlerrm);
8214: raise;
8219: ruleDescriptionsOut(i) := engStRuleDescriptions(i);
8220: end loop;
8221: exception
8222: when others then
8223: ame_util.runtimeException(packageNameIn => 'ame_engine',
8224: routineNameIn => 'getRuleDescriptions',
8225: exceptionNumberIn => sqlcode,
8226: exceptionStringIn => sqlerrm);
8227: raise;
8232: ruleIdsOut(i) := engStRuleIds(i);
8233: end loop;
8234: exception
8235: when others then
8236: ame_util.runtimeException(packageNameIn => 'ame_engine',
8237: routineNameIn => 'getRuleIds',
8238: exceptionNumberIn => sqlcode,
8239: exceptionStringIn => sqlerrm);
8240: raise;
8245: ruleIndexesOut(i) := engStRuleIndexes(i);
8246: end loop;
8247: exception
8248: when others then
8249: ame_util.runtimeException(packageNameIn => 'ame_engine',
8250: routineNameIn => 'getRuleIndexes',
8251: exceptionNumberIn => sqlcode,
8252: exceptionStringIn => sqlerrm);
8253: raise;
8289: return;
8290: end if;
8291: exception
8292: when others then
8293: ame_util.runtimeException(packageNameIn => 'ame_engine',
8294: routineNameIn => 'getRuntimeGroupMembers',
8295: exceptionNumberIn => sqlcode,
8296: exceptionStringIn => sqlerrm);
8297: raise;
8302: sourceTypesOut(i) := engStSourceTypes(i);
8303: end loop;
8304: exception
8305: when others then
8306: ame_util.runtimeException(packageNameIn => 'ame_engine',
8307: routineNameIn => 'getSourceTypes',
8308: exceptionNumberIn => sqlcode,
8309: exceptionStringIn => sqlerrm);
8310: raise;
8439: end loop;
8440: end loop;
8441: exception
8442: when others then
8443: ame_util.runtimeException(packageNameIn => 'ame_engine',
8444: routineNameIn => 'getTestTransApplicableRules',
8445: exceptionNumberIn => sqlcode,
8446: exceptionStringIn => sqlerrm);
8447: raise;
8545: getVariableValues(variableValuesOut => variableValuesOut);
8546: exception
8547: when others then
8548: rollback;
8549: ame_util.runtimeException(packageNameIn => 'ame_engine',
8550: routineNameIn => 'getTestTransApprovers',
8551: exceptionNumberIn => sqlcode,
8552: exceptionStringIn => sqlerrm);
8553: raise;
8564: end if;
8565: end loop;
8566: exception
8567: when others then
8568: ame_util.runtimeException(packageNameIn => 'ame_engine',
8569: routineNameIn => 'getTransVariableNames',
8570: exceptionNumberIn => sqlcode,
8571: exceptionStringIn => sqlerrm);
8572: raise;
8583: end if;
8584: end loop;
8585: exception
8586: when others then
8587: ame_util.runtimeException(packageNameIn => 'ame_engine',
8588: routineNameIn => 'getTransVariableValues',
8589: exceptionNumberIn => sqlcode,
8590: exceptionStringIn => sqlerrm);
8591: raise;
8596: variableNamesOut(i) := engStVariableNames(i);
8597: end loop;
8598: exception
8599: when others then
8600: ame_util.runtimeException(packageNameIn => 'ame_engine',
8601: routineNameIn => 'getVariableNames',
8602: exceptionNumberIn => sqlcode,
8603: exceptionStringIn => sqlerrm);
8604: raise;
8609: variableValuesOut(i) := engStVariableValues(i);
8610: end loop;
8611: exception
8612: when others then
8613: ame_util.runtimeException(packageNameIn => 'ame_engine',
8614: routineNameIn => 'getVariableValues',
8615: exceptionNumberIn => sqlcode,
8616: exceptionStringIn => sqlerrm);
8617: raise;
8650: fndApplicationIdIn => null,
8651: transactionTypeIdIn => transactionTypeIdIn);
8652: exception
8653: when others then
8654: ame_util.runtimeException(packageNameIn => 'ame_engine',
8655: routineNameIn => 'initializePlsqlContext',
8656: exceptionNumberIn => sqlcode,
8657: exceptionStringIn => sqlerrm);
8658: raise;
8667: return;
8668: end if;
8669: exception
8670: when others then
8671: ame_util.runtimeException(packageNameIn => 'ame_engine',
8672: routineNameIn => 'updateDeviationList',
8673: exceptionNumberIn => sqlcode,
8674: exceptionStringIn => sqlerrm);
8675: end updateDeviationList;
8861: when indexException then
8862: errorCode := -20001;
8863: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
8864: messageNameIn => 'AME_400686_ENG_IDX_OUT_OF_BOU');
8865: ame_util.runtimeException(packageNameIn => 'ame_engine',
8866: routineNameIn => 'insertApprover',
8867: exceptionNumberIn => errorCode,
8868: exceptionStringIn => errorMessage);
8869: raise_application_error(errorCode,
8868: exceptionStringIn => errorMessage);
8869: raise_application_error(errorCode,
8870: errorMessage);
8871: when others then
8872: ame_util.runtimeException(packageNameIn => 'ame_engine',
8873: routineNameIn => 'insertApprover',
8874: exceptionNumberIn => sqlcode,
8875: exceptionStringIn => sqlerrm);
8876: raise;
8944: when indexException then
8945: errorCode := -20001;
8946: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
8947: messageNameIn => 'AME_400687_ENG_FIDX_OUT_OF_BOU');
8948: ame_util.runtimeException(packageNameIn => 'ame_engine',
8949: routineNameIn => 'insertApprovers',
8950: exceptionNumberIn => errorCode,
8951: exceptionStringIn => errorMessage);
8952: raise_application_error(errorCode,
8951: exceptionStringIn => errorMessage);
8952: raise_application_error(errorCode,
8953: errorMessage);
8954: when others then
8955: ame_util.runtimeException(packageNameIn => 'ame_engine',
8956: routineNameIn => 'insertApprovers',
8957: exceptionNumberIn => sqlcode,
8958: exceptionStringIn => sqlerrm);
8959: raise;
8991: approvers ame_util.approversTable2;
8992: begin
8993: tempName := nameIn;
8994: if historyTypeIn = 'BEATBYFIRSTRESPONDER' then
8995: ame_engine.getApprovers(approversOut => approvers);
8996: for i in 1 .. approvers.count loop
8997: if (approvers(i).name <> nameIn or approvers(i).occurrence <> occurrenceIn)
8998: and approvers(i).item_class = itemClassIn
8999: and approvers(i).item_id = itemIdIn
9223: );
9224: end if;
9225: exception
9226: when others then
9227: ame_util.runtimeException(packageNameIn => 'ame_engine',
9228: routineNameIn => 'insertIntoTransApprovalHistory',
9229: exceptionNumberIn => sqlcode,
9230: exceptionStringIn => sqlerrm);
9231:
9267: sysdate);
9268: engTransactionIsLocked := true;
9269: exception
9270: when others then
9271: ame_util.runtimeException(packageNameIn => 'ame_engine',
9272: routineNameIn => 'lockTransaction',
9273: exceptionNumberIn => sqlcode,
9274: exceptionStringIn => sqlerrm);
9275: raise;
9300: tempTransSeqId); /* Don't use engEffectiveRuleDate here. */
9301: end if;
9302: exception
9303: when others then
9304: ame_util.runtimeException(packageNameIn => 'ame_engine',
9305: routineNameIn => 'logTransaction',
9306: exceptionNumberIn => sqlcode,
9307: exceptionStringIn => sqlerrm);
9308: raise;
9328: fieldStart := fieldEnd + 1;
9329: end loop;
9330: exception
9331: when others then
9332: ame_util.runtimeException(packageNameIn => 'ame_engine',
9333: routineNameIn => 'parseFields',
9334: exceptionNumberIn => sqlcode,
9335: exceptionStringIn => sqlerrm);
9336: raise;
9350: startPosition := startPosition + valueLength + 1;
9351: end loop;
9352: exception
9353: when others then
9354: ame_util.runtimeException(packageNameIn => 'ame_engine',
9355: routineNameIn => 'parseForwardingBehaviors',
9356: exceptionNumberIn => sqlcode,
9357: exceptionStringIn => sqlerrm);
9358: raise;
9390: startPosition := endPosition + 2;
9391: end loop;
9392: exception
9393: when others then
9394: ame_util.runtimeException(packageNameIn => 'ame_engine',
9395: routineNameIn => 'parsePriorityModes',
9396: exceptionNumberIn => sqlcode,
9397: exceptionStringIn => sqlerrm);
9398: raise;
9500: end if;
9501: end loop;
9502:
9503: if itemRejected then
9504: stoppingRule := ame_engine.getHeaderAttValue2
9505: (attributeNameIn => ame_util.rejectionResponseAttribute);
9506: if stoppingRule is null or stoppingRule not in (ame_util.stopAllItems,ame_util.continueOtherSubItems,
9507: ame_util.continueAllOtherItems) then
9508: stoppingRule := ame_util.stopAllItems;
9564: end if;
9565: end if;
9566: exception
9567: when others then
9568: ame_util.runtimeException(packageNameIn => 'ame_engine',
9569: routineNameIn => 'populateEngStVariables',
9570: exceptionNumberIn => sqlcode,
9571: exceptionStringIn => sqlerrm);
9572: raise;
9683: end if;
9684: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
9685: fnd_log.string
9686: (fnd_log.level_statement
9687: ,'ame_engine.processAdhocInsertions'
9688: ,'Adhoc Insertion approver(absolute order) ::: ' || engInsertedApproverList(i).name
9689: );
9690: end if;
9691: insertApprover(indexIn => tempIndex,
9747: engStApprovers(tempIndex).group_or_chain_order_number;
9748: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
9749: fnd_log.string
9750: (fnd_log.level_statement
9751: ,'ame_engine.processAdhocInsertions'
9752: ,'Adhoc Insertion approver(after/before approver) ::: ' || engInsertedApproverList(i).name
9753: );
9754: end if;
9755: insertApprover(indexIn => tempIndex2,
10097: engInsertedApproverList(i).action_type_id := -1;
10098: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10099: fnd_log.string
10100: (fnd_log.level_statement
10101: ,'ame_engine.processAdhocInsertions'
10102: ,'Adhoc Insertion approver(first pre/first post approver) ::: ' || engInsertedApproverList(i).name
10103: );
10104: end if;
10105: insertApprover(indexIn => tempIndex,
10115: engInsertedApproverList(i).action_type_id := -2;
10116: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10117: fnd_log.string
10118: (fnd_log.level_statement
10119: ,'ame_engine.processAdhocInsertions'
10120: ,'Adhoc Insertion approver(last pre/last post approver) ::: ' || engInsertedApproverList(i).name
10121: );
10122: end if;
10123: insertApprover(indexIn => tempIndex,
10154: engStApprovers(j + 1).item_class <> parameterFields(3))) then
10155: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10156: fnd_log.string
10157: (fnd_log.level_statement
10158: ,'ame_engine.processAdhocInsertions'
10159: ,'Adhoc Insertion approver(displaced) ::: ' || engInsertedApproverList(displacedInserteeIndexes(i)).name
10160: );
10161: end if;
10162: insertApprover(indexIn => j + 1,
10173: if(tempBoolean) then
10174: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10175: fnd_log.string
10176: (fnd_log.level_statement
10177: ,'ame_engine.processAdhocInsertions'
10178: ,'Adhoc Insertion approver(displaced) ::: ' || engInsertedApproverList(displacedInserteeIndexes(i)).name
10179: );
10180: end if;
10181: insertApprover(indexIn => engStApproversCount + 1,
10189: engStApproversCount := engStApproversCount + 1;
10190: end loop;
10191: exception
10192: when others then
10193: ame_util.runtimeException(packageNameIn => 'ame_engine',
10194: routineNameIn => 'processAdHocInsertions',
10195: exceptionNumberIn => sqlcode,
10196: exceptionStringIn => sqlerrm);
10197: raise;
10243: engStProductionsTable(tempIndex).item_id := getHandlerItemId;
10244: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10245: fnd_log.string
10246: (fnd_log.level_statement
10247: ,'ame_engine.processActionType'
10248: ,'Transaction Production ::: ' || engStProductionsTable(tempIndex).variable_name || '/' || engStProductionsTable(tempIndex).variable_value
10249: );
10250: end if;
10251: end loop;
10261: */
10262: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10263: fnd_log.string
10264: (fnd_log.level_statement
10265: ,'ame_engine.processActionType'
10266: ,'Processing Action Type ::: ' || engAppActionTypeIds(engAppHandlerFirstIndex)
10267: );
10268: end if;
10269: execute immediate
10273: end if;
10274: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10275: fnd_log.string
10276: (fnd_log.level_statement
10277: ,'ame_engine.processActionType'
10278: ,'Completed processing the action Type ::: ' || engAppActionTypeIds(engAppHandlerFirstIndex)
10279: );
10280: end if;
10281: exception
10279: );
10280: end if;
10281: exception
10282: when others then
10283: ame_util.runtimeException(packageNameIn => 'ame_engine',
10284: routineNameIn => 'processActionType',
10285: exceptionNumberIn => sqlcode,
10286: exceptionStringIn => sqlerrm);
10287: raise;
10312: engDeviationResultList(approverIndexIn).effectiveDate := engSuppressionDateList(suppressApproverIndex);
10313: engDeviationResultList(approverIndexIn).reason := engSupperssionReasonList(suppressApproverIndex);
10314: exception
10315: when others then
10316: ame_util.runtimeException(packageNameIn => 'ame_engine',
10317: routineNameIn => 'processSuppressDeviation',
10318: exceptionNumberIn => sqlcode,
10319: exceptionStringIn => sqlerrm);
10320: end processSuppressDeviation;
10333: processSuppressDeviation(j,i);
10334: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10335: fnd_log.string
10336: (fnd_log.level_statement
10337: ,'ame_engine.processSuppressions'
10338: ,'Suppressed approver ::: ' || engStApprovers(j).name
10339: );
10340: end if;
10341: end if;
10342: end loop;
10343: end loop;
10344: exception
10345: when others then
10346: ame_util.runtimeException(packageNameIn => 'ame_engine',
10347: routineNameIn => 'processSuppressions',
10348: exceptionNumberIn => sqlcode,
10349: exceptionStringIn => sqlerrm);
10350: raise;
10521: compactParametersIn => true);
10522: end if;
10523: exception
10524: when others then
10525: ame_util.runtimeException(packageNameIn => 'ame_engine',
10526: routineNameIn => 'processExceptions',
10527: exceptionNumberIn => sqlcode,
10528: exceptionStringIn => sqlerrm);
10529: raise;
10648: engStApprovers(j).approval_status := ame_util.repeatedStatus;
10649: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10650: fnd_log.string
10651: (fnd_log.level_statement
10652: ,'ame_engine.processRepeatedApprovers'
10653: ,'Repeated Approver ::: ' || engStApprovers(j).name
10654: );
10655: end if;
10656: end if;
10731: end if;
10732: end loop;
10733: exception
10734: when others then
10735: ame_util.runtimeException(packageNameIn => 'ame_engine',
10736: routineNameIn => 'processRepeatedApprovers',
10737: exceptionNumberIn => sqlcode,
10738: exceptionStringIn => sqlerrm);
10739: raise;
10800: if processOnlyProductionsIn then
10801: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10802: fnd_log.string
10803: (fnd_log.level_statement
10804: ,'ame_engine.processRules'
10805: ,'Processing only production rules'
10806: );
10807: end if;
10808: ruleTypeUpperLimit := 1;
10809: else
10810: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10811: fnd_log.string
10812: (fnd_log.level_statement
10813: ,'ame_engine.processRules'
10814: ,'Processing all rules'
10815: );
10816: end if;
10817: ruleTypeUpperLimit := 6;
10872: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
10873: if engStApprovers.count = 0 then
10874: fnd_log.string
10875: (fnd_log.level_statement
10876: ,'ame_engine.processRules'
10877: ,'**************** No Approvers ******************'
10878: );
10879: else
10880: for i in 1 .. engStApprovers.count loop
10879: else
10880: for i in 1 .. engStApprovers.count loop
10881: fnd_log.string
10882: (fnd_log.level_statement
10883: ,'ame_engine.processRules'
10884: ,'Approver ::: ' || engStApprovers(i).name
10885: );
10886: end loop;
10887: end if;
10887: end if;
10888: end if;
10889: exception
10890: when others then
10891: ame_util.runtimeException(packageNameIn => 'ame_engine',
10892: routineNameIn => 'processRules',
10893: exceptionNumberIn => sqlcode,
10894: exceptionStringIn => sqlerrm);
10895: raise;
11044: compactParametersIn => false);
11045: end if;
11046: exception
11047: when others then
11048: ame_util.runtimeException(packageNameIn => 'ame_engine',
11049: routineNameIn => 'processRelativePriorities',
11050: exceptionNumberIn => sqlcode,
11051: exceptionStringIn => sqlerrm);
11052: raise;
11104: /* tempSurrogateApprover.approver_order_number also gets set later. */
11105: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11106: fnd_log.string
11107: (fnd_log.level_statement
11108: ,'ame_engine.processUnresponsiveApprovers'
11109: ,'Unresponsive approver ::: ' || engStApprovers(tempIndex).name || ' Surrogate ::: ' || tempSurrogateApprover.name
11110: );
11111: end if;
11112: engTempReason := ame_approver_deviation_pkg.timeoutReason;
11122: tempIndex := tempIndex + 1;
11123: end loop;
11124: exception
11125: when others then
11126: ame_util.runtimeException(packageNameIn => 'ame_engine',
11127: routineNameIn => 'processUnresponsiveApprovers',
11128: exceptionNumberIn => sqlcode,
11129: exceptionStringIn => sqlerrm);
11130: raise;
11387: when badLocalTransException then
11388: errorCode := -20001;
11389: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
11390: messageNameIn => 'AME_400688_ENG_TESTTX_NONLOCAL');
11391: ame_util.runtimeException(packageNameIn => 'ame_engine',
11392: routineNameIn => 'setContext',
11393: exceptionNumberIn => errorCode,
11394: exceptionStringIn => errorMessage);
11395: raise_application_error(errorCode,
11397: when nullValuesException then
11398: errorCode := -20001;
11399: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
11400: messageNameIn => 'AME_400129_ENG_APPLID_NULL');
11401: ame_util.runtimeException(packageNameIn => 'ame_engine',
11402: routineNameIn => 'setContext',
11403: exceptionNumberIn => errorCode,
11404: exceptionStringIn => errorMessage);
11405: raise_application_error(errorCode,
11404: exceptionStringIn => errorMessage);
11405: raise_application_error(errorCode,
11406: errorMessage);
11407: when others then
11408: ame_util.runtimeException(packageNameIn => 'ame_engine',
11409: routineNameIn => 'setContext',
11410: exceptionNumberIn => sqlcode,
11411: exceptionStringIn => sqlerrm);
11412: raise;
11447: when argumentLengthException then
11448: errorCode := -20001;
11449: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
11450: messageNameIn => 'AME_400130_ENG_HDLR_PAR_LNG');
11451: ame_util.runtimeException(packageNameIn => 'ame_engine',
11452: routineNameIn => 'setHandlerState',
11453: exceptionNumberIn => errorCode,
11454: exceptionStringIn => errorMessage);
11455: raise_application_error(errorCode,
11454: exceptionStringIn => errorMessage);
11455: raise_application_error(errorCode,
11456: errorMessage);
11457: when others then
11458: ame_util.runtimeException(packageNameIn => 'ame_engine',
11459: routineNameIn => 'setHandlerState',
11460: exceptionNumberIn => sqlcode,
11461: exceptionStringIn => sqlerrm);
11462: raise;
11480: end if;
11481: end loop;
11482: exception
11483: when others then
11484: ame_util.runtimeException(packageNameIn => 'ame_engine',
11485: routineNameIn => 'setInsertedApprovalStatus',
11486: exceptionNumberIn => sqlcode,
11487: exceptionStringIn => sqlerrm);
11488: raise;
11571: end loop;
11572: end loop;
11573: exception
11574: when others then
11575: ame_util.runtimeException(packageNameIn => 'ame_engine',
11576: routineNameIn => 'sortApplicableRules',
11577: exceptionNumberIn => sqlcode,
11578: exceptionStringIn => sqlerrm);
11579: raise;
11631: end if;
11632: end loop;
11633: exception
11634: when others then
11635: ame_util.runtimeException(packageNameIn => 'ame_engine',
11636: routineNameIn => 'substituteApprover',
11637: exceptionNumberIn => sqlcode,
11638: exceptionStringIn => sqlerrm);
11639: raise;
11729: /* Delete the last truncateCount places. */
11730: engStApprovers.delete(engStApproversCount - truncateCount + 1, engStApproversCount);
11731: exception
11732: when others then
11733: ame_util.runtimeException(packageNameIn => 'ame_engine',
11734: routineNameIn => 'truncateChain',
11735: exceptionNumberIn => sqlcode,
11736: exceptionStringIn => sqlerrm);
11737: raise;
11750: end if;
11751: engTransactionIsLocked := false;
11752: exception
11753: when others then
11754: ame_util.runtimeException(packageNameIn => 'ame_engine',
11755: routineNameIn => 'unlockTransaction',
11756: exceptionNumberIn => sqlcode,
11757: exceptionStringIn => sqlerrm);
11758: raise;
11805: transactionTypeIdIn => transactionTypeIdIn);
11806: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11807: fnd_log.string
11808: (fnd_log.level_statement
11809: ,'ame_engine.updateTransactionState'
11810: ,'AME Application Id ::: ' || engAmeApplicationId
11811: );
11812: fnd_log.string
11813: (fnd_log.level_statement
11810: ,'AME Application Id ::: ' || engAmeApplicationId
11811: );
11812: fnd_log.string
11813: (fnd_log.level_statement
11814: ,'ame_engine.updateTransactionState'
11815: ,'AME Transaction Id ::: ' || engTransactionId
11816: );
11817: end if;
11818: /* Added from version 115.217 to log a transaction (backward compatiblity)*/
11842: end if;
11843: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11844: fnd_log.string
11845: (fnd_log.level_statement
11846: ,'ame_engine.updateTransactionState'
11847: ,'Approver count after processRules ::: ' || engStApprovers.count
11848: );
11849: end if;
11850: if(updateCurrentApproverListIn or
11852: processAdHocInsertions;
11853: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11854: fnd_log.string
11855: (fnd_log.level_statement
11856: ,'ame_engine.updateTransactionState'
11857: ,'Approver count after processAdHocInsertions ::: ' || engStApprovers.count
11858: );
11859: end if;
11860: processUnresponsiveApprovers;
11860: processUnresponsiveApprovers;
11861: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11862: fnd_log.string
11863: (fnd_log.level_statement
11864: ,'ame_engine.updateTransactionState'
11865: ,'Approver count after processUnresponsiveApprovers ::: ' || engStApprovers.count
11866: );
11867: end if;
11868: if engRepeatSubstitutions then
11869: repeatSubstitutions;
11870: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11871: fnd_log.string
11872: (fnd_log.level_statement
11873: ,'ame_engine.updateTransactionState'
11874: ,'Approver count after repeatSubstitutions ::: ' || engStApprovers.count
11875: );
11876: end if;
11877: end if;
11883: processSuppressions;
11884: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11885: fnd_log.string
11886: (fnd_log.level_statement
11887: ,'ame_engine.updateTransactionState'
11888: ,'Approver count after processSuppressions ::: ' || engStApprovers.count
11889: );
11890: end if;
11891: /*
11895: processRepeatedApprovers;
11896: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11897: fnd_log.string
11898: (fnd_log.level_statement
11899: ,'ame_engine.updateTransactionState'
11900: ,'Approver count after processRepeatedApprovers ::: ' || engStApprovers.count
11901: );
11902: end if;
11903: /*
11920: if fnd_log.g_current_runtime_level <= fnd_log.level_statement then
11921: if engStApprovers.count = 0 then
11922: fnd_log.string
11923: (fnd_log.level_statement
11924: ,'ame_engine.updateTransactionState'
11925: ,'**************** No Approvers ******************'
11926: );
11927: else
11928: for i in 1 .. engStApprovers.count loop
11927: else
11928: for i in 1 .. engStApprovers.count loop
11929: fnd_log.string
11930: (fnd_log.level_statement
11931: ,'ame_engine.updateTransactionState'
11932: ,'Approver ::: ' || engStApprovers(i).name || ' Order Number ::: ' || engStApprovers(i).approver_order_number
11933: );
11934: end loop;
11935: end if;
11942: when configVarException then
11943: errorCode := -20001;
11944: errorMessage := ame_util.getMessage(applicationShortNameIn =>'PER',
11945: messageNameIn => 'AME_400691_INV_PARAM_ENG_UPDTX');
11946: ame_util.runtimeException(packageNameIn => 'ame_engine',
11947: routineNameIn => 'updateTransactionState',
11948: exceptionNumberIn => errorCode,
11949: exceptionStringIn => errorMessage);
11950: raise_application_error(errorCode,
11949: exceptionStringIn => errorMessage);
11950: raise_application_error(errorCode,
11951: errorMessage);
11952: when others then
11953: ame_util.runtimeException(packageNameIn => 'ame_engine',
11954: routineNameIn => 'updateTransactionState',
11955: exceptionNumberIn => sqlcode,
11956: exceptionStringIn => sqlerrm);
11957: raise;
12030: tempCategories(i),
12031: tempStatuses(i));
12032: exception
12033: when others then
12034: ame_util.runtimeException(packageNameIn => 'ame_engine',
12035: routineNameIn => 'updateOldApproverList',
12036: exceptionNumberIn => sqlcode,
12037: exceptionStringIn => sqlerrm);
12038: raise;
12044: begin
12045: null;
12046: exception
12047: when others then
12048: ame_util.runtimeException(packageNameIn => 'ame_engine',
12049: routineNameIn => 'testEngine',
12050: exceptionNumberIn => sqlcode,
12051: exceptionStringIn => sqlerrm);
12052: raise;
12094: tempReason varchar2(50);
12095: tempStatus varchar2(50);
12096: begin
12097: /* Lock the transaction. */
12098: ame_engine.lockTransaction(fndApplicationIdIn => applicationIdIn,
12099: transactionIdIn => transactionIdIn,
12100: transactionTypeIdIn => transactionTypeIn);
12101: /* Clear the exception log when required. */
12102: if(approverIn.approval_status = ame_util.clearExceptionsStatus) then
12103: delete from ame_exceptions_log
12104: where
12105: transaction_id = transactionIdIn and
12106: application_id = ameApplicationId;
12107: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
12108: transactionIdIn => transactionIdIn,
12109: transactionTypeIdIn => transactionTypeIn);
12110: return;
12111: end if;
12109: transactionTypeIdIn => transactionTypeIn);
12110: return;
12111: end if;
12112: /* Locate approverIn in the current approver list, if possible. */
12113: ame_engine.updateTransactionState(isTestTransactionIn => false,
12114: isLocalTransactionIn => false,
12115: fetchConfigVarsIn => true,
12116: fetchOldApproversIn => true,
12117: fetchInsertionsIn => true,
12130: transactionIdIn => transactionIdIn,
12131: ameApplicationIdIn => null,
12132: fndApplicationIdIn => applicationIdIn,
12133: transactionTypeIdIn => transactionTypeIn);
12134: ame_engine.getApprovers(approversOut => currentApprovers);
12135: ame_engine.getRepeatedIndexes(repeatedIndexesOut => repeatedIndexes
12136: ,repeatedAppIndexesOut => repeatedAppIndexes);
12137: ameApplicationId := ame_engine.getAmeApplicationId;
12138: approverInIndex := null;
12131: ameApplicationIdIn => null,
12132: fndApplicationIdIn => applicationIdIn,
12133: transactionTypeIdIn => transactionTypeIn);
12134: ame_engine.getApprovers(approversOut => currentApprovers);
12135: ame_engine.getRepeatedIndexes(repeatedIndexesOut => repeatedIndexes
12136: ,repeatedAppIndexesOut => repeatedAppIndexes);
12137: ameApplicationId := ame_engine.getAmeApplicationId;
12138: approverInIndex := null;
12139: if(approverIn.occurrence is null or
12133: transactionTypeIdIn => transactionTypeIn);
12134: ame_engine.getApprovers(approversOut => currentApprovers);
12135: ame_engine.getRepeatedIndexes(repeatedIndexesOut => repeatedIndexes
12136: ,repeatedAppIndexesOut => repeatedAppIndexes);
12137: ameApplicationId := ame_engine.getAmeApplicationId;
12138: approverInIndex := null;
12139: if(approverIn.occurrence is null or
12140: approverIn.group_or_chain_id is null or
12141: approverIn.action_type_id is null or
12191: end loop;
12192: end if;
12193: else /* complete match */
12194: for i in 1 .. currentApprovers.count loop
12195: if(ame_engine.approversMatch(approverRecord1In => currentApprovers(i),
12196: approverRecord2In => approverIn)) then
12197: approverInIndex := i;
12198: exit;
12199: end if;
12366: Pass localErrorIn => true in this case, because we're just logging a warning
12367: to the AME exception log, and we don't want the warning to appear in the
12368: Workflow context stack.
12369: */
12370: ame_util.runtimeException(packageNameIn => 'ame_engine',
12371: routineNameIn => 'updateApprovalStatus',
12372: exceptionNumberIn => errorCode,
12373: exceptionStringIn => errorMessage);
12374: return;
12575: approvalGroupIdIn => approver.group_or_chain_id ,
12576: applicationIdIn => ameApplicationId);
12577: -- in approver.group_or_chain_id
12578: else
12579: votingRegime := ame_engine.getActionTypeVotingRegime(actionTypeIdIn => approver.action_type_id);
12580: end if;
12581: if(votingRegime = ame_util.firstApproverVoting) then
12582: /*
12583: approverIn must be the first responder (otherwise, they would be suppressed,
12679: origSystemOut => forwardee.orig_system,
12680: origSystemIdOut => forwardee.orig_system_id,
12681: displayNameOut => forwardee.display_name);
12682: end if;
12683: tempInsertionOrder := ame_engine.getNextInsertionOrder;
12684: tempParameter := approver.name ||
12685: ame_util.fieldDelimiter ||
12686: approver.item_class ||
12687: ame_util.fieldDelimiter ||
12765: if(forwardeeType is null) then /* Handle normal forwarding cases. */
12766: if(approver.orig_system <> forwardee.orig_system) then
12767: forwarderType := ame_util.adHocForwarder;
12768: end if;
12769: tempInsertionOrder := ame_engine.getNextInsertionOrder;
12770: tempParameter := approver.name ||
12771: ame_util.fieldDelimiter ||
12772: approver.item_class ||
12773: ame_util.fieldDelimiter ||
12815: action_type_id and group_or_chain_id as approver. The insertees' source
12816: should always be ame_util.specialForwardInsertion. The insertions' order
12817: types should always be ame_util.afterApprover.
12818: */
12819: forwardingBehavior := ame_engine.getForwardingBehavior(forwarderTypeIn => forwarderType,
12820: forwardeeTypeIn => forwardeeType,
12821: approvalStatusIn => approver.approval_status);
12822: if(forwardingBehavior in (ame_util.repeatForwarder,
12823: ame_util.skipForwarder,
12842: /* Handle the special forwarding cases. */
12843: if(forwardingBehavior in (ame_util.forwardeeOnly,
12844: ame_util.forwarderAndForwardee)) then
12845: /* Insert forwardee as ad-hoc or COA, according to whether approverIn is ad-hoc or COA. */
12846: tempInsertionOrder := ame_engine.getNextInsertionOrder;
12847: tempParameter := approver.name ||
12848: ame_util.fieldDelimiter ||
12849: approver.item_class ||
12850: ame_util.fieldDelimiter ||
12888: ame_util.booleanTrue,
12889: sysdate,
12890: ame_approver_deviation_pkg.forwardReason);
12891: if(forwardingBehavior = ame_util.forwarderAndForwardee) then /* Insert the forwarder. */
12892: tempInsertionOrder := ame_engine.getNextInsertionOrder;
12893: tempParameter := forwardee.name ||
12894: ame_util.fieldDelimiter ||
12895: forwardee.item_class ||
12896: ame_util.fieldDelimiter ||
12944: approverIn and stop. In the case of ame_util.skipForwarder, we then add
12945: approverIn's superior and stop. The insertees are all COA approvers.
12946: */
12947: /* Insert the forwardee. */
12948: tempInsertionOrder := ame_engine.getNextInsertionOrder;
12949: tempParameter := approver.name ||
12950: ame_util.fieldDelimiter ||
12951: approver.item_class ||
12952: ame_util.fieldDelimiter ||
13022: exit;
13023: end if;
13024: end loop;
13025: /* Prepare and do the insertion. */
13026: tempInsertionOrder := ame_engine.getNextInsertionOrder;
13027: tempParameter := insertedApprover.name ||
13028: ame_util.fieldDelimiter ||
13029: insertedApprover.item_class ||
13030: ame_util.fieldDelimiter ||
13093: exit;
13094: end if;
13095: end loop;
13096: end if;
13097: tempInsertionOrder := ame_engine.getNextInsertionOrder;
13098: tempParameter := currentApprovers(prevApproverIndex).name ||
13099: ame_util.fieldDelimiter ||
13100: approver.item_class ||
13101: ame_util.fieldDelimiter ||
13142: /* else forwardingBehavior = ame_util.ignoreForwarding */
13143: end if;
13144: end if;
13145: /* Cycle the engine to write the forwardees out to the old-approvers table. */
13146: ame_engine.updateTransactionState(isTestTransactionIn => false,
13147: isLocalTransactionIn => false,
13148: fetchConfigVarsIn => true,
13149: fetchOldApproversIn => true,
13150: fetchInsertionsIn => true,
13163: ameApplicationIdIn => null,
13164: fndApplicationIdIn => applicationIdIn,
13165: transactionTypeIdIn => transactionTypeIn);
13166: end if;
13167: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13168: transactionIdIn => transactionIdIn,
13169: transactionTypeIdIn => transactionTypeIn);
13170: exception
13171: when badForwardeeException then
13168: transactionIdIn => transactionIdIn,
13169: transactionTypeIdIn => transactionTypeIn);
13170: exception
13171: when badForwardeeException then
13172: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13173: transactionIdIn => transactionIdIn,
13174: transactionTypeIdIn => transactionTypeIn);
13175: errorCode := -20001;
13176: if transactionTypeIn is not null then
13185: messageNameIn => 'AME_400066_API_FOR_NOT_VALID2',
13186: tokenNameOneIn => 'TRANSACTION_ID',
13187: tokenValueOneIn => transactionIdIn);
13188: end if;
13189: ame_util.runtimeException(packageNameIn => 'ame_engine',
13190: routineNameIn => 'updateApprovalStatus',
13191: exceptionNumberIn => errorCode,
13192: exceptionStringIn => errorMessage);
13193: raise_application_error(errorCode,
13192: exceptionStringIn => errorMessage);
13193: raise_application_error(errorCode,
13194: errorMessage);
13195: when apiInsertionException then
13196: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13197: transactionIdIn => transactionIdIn,
13198: transactionTypeIdIn => transactionTypeIn);
13199: errorCode := -20001;
13200: errorMessage :=
13199: errorCode := -20001;
13200: errorMessage :=
13201: ame_util.getMessage(applicationShortNameIn => 'PER',
13202: messageNameIn => 'AME_400246_API_FWD_SAME_VALUE');
13203: ame_util.runtimeException(packageNameIn => 'ame_engine',
13204: routineNameIn => 'updateApprovalStatus',
13205: exceptionNumberIn => errorCode,
13206: exceptionStringIn => errorMessage);
13207: raise_application_error(errorCode,
13206: exceptionStringIn => errorMessage);
13207: raise_application_error(errorCode,
13208: errorMessage);
13209: when badStatusException then
13210: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13211: transactionIdIn => transactionIdIn,
13212: transactionTypeIdIn => transactionTypeIn);
13213: errorCode := -20001;
13214: if transactionTypeIn is not null then
13243: tokenValueFiveIn => ame_util.forwardStatus,
13244: tokenNameSixIn => 'REJECT_STATUS',
13245: tokenValueSixIn => ame_util.rejectStatus);
13246: end if;
13247: ame_util.runtimeException(packageNameIn => 'ame_engine',
13248: routineNameIn => 'updateApprovalStatus',
13249: exceptionNumberIn => errorCode,
13250: exceptionStringIn => errorMessage);
13251: raise_application_error(errorCode,
13250: exceptionStringIn => errorMessage);
13251: raise_application_error(errorCode,
13252: errorMessage);
13253: when others then
13254: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13255: transactionIdIn => transactionIdIn,
13256: transactionTypeIdIn => transactionTypeIn);
13257: ame_util.runtimeException(packageNameIn => 'ame_engine',
13258: routineNameIn => 'updateApprovalStatus',
13253: when others then
13254: ame_engine.unlockTransaction(fndApplicationIdIn => applicationIdIn,
13255: transactionIdIn => transactionIdIn,
13256: transactionTypeIdIn => transactionTypeIn);
13257: ame_util.runtimeException(packageNameIn => 'ame_engine',
13258: routineNameIn => 'updateApprovalStatus',
13259: exceptionNumberIn => sqlcode,
13260: exceptionStringIn => sqlerrm);
13261: raise;
13286: begin
13287: engTempReason := reasonIn;
13288: engTempDate := dateIn;
13289: end setDeviationReasonDate;
13290: end ame_engine;