261: ) IS
262: l_api_name VARCHAR2(30);
263: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
264: l_process_complete_yn varchar2(1);
265: l_next_approvers ame_util.approversTable2;
266: l_item_indexes ame_util.idList;
267: l_item_classes ame_util.stringList;
268: l_item_ids ame_util.stringList;
269: l_item_sources ame_util.longStringList;
262: l_api_name VARCHAR2(30);
263: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
264: l_process_complete_yn varchar2(1);
265: l_next_approvers ame_util.approversTable2;
266: l_item_indexes ame_util.idList;
267: l_item_classes ame_util.stringList;
268: l_item_ids ame_util.stringList;
269: l_item_sources ame_util.longStringList;
270: l_user_names varchar2(4000);
263: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
264: l_process_complete_yn varchar2(1);
265: l_next_approvers ame_util.approversTable2;
266: l_item_indexes ame_util.idList;
267: l_item_classes ame_util.stringList;
268: l_item_ids ame_util.stringList;
269: l_item_sources ame_util.longStringList;
270: l_user_names varchar2(4000);
271: l_role_name varchar2(4000);
264: l_process_complete_yn varchar2(1);
265: l_next_approvers ame_util.approversTable2;
266: l_item_indexes ame_util.idList;
267: l_item_classes ame_util.stringList;
268: l_item_ids ame_util.stringList;
269: l_item_sources ame_util.longStringList;
270: l_user_names varchar2(4000);
271: l_role_name varchar2(4000);
272: l_role_display_name varchar2(4000);
265: l_next_approvers ame_util.approversTable2;
266: l_item_indexes ame_util.idList;
267: l_item_classes ame_util.stringList;
268: l_item_ids ame_util.stringList;
269: l_item_sources ame_util.longStringList;
270: l_user_names varchar2(4000);
271: l_role_name varchar2(4000);
272: l_role_display_name varchar2(4000);
273:
308: ame_api2.getNextApprovers1(
309: applicationIdIn => G_APPLICATION_ID,
310: transactionTypeIn => G_TRANSACTION_TYPE,
311: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
312: flagApproversAsNotifiedIn => ame_util.booleanFalse,
313: approvalProcessCompleteYNOut => l_process_complete_yn,
314: nextApproversOut => l_next_approvers,
315: itemIndexesOut => l_item_indexes,
316: itemClassesOut => l_item_classes,
467: l_contract_version OKC_REP_CONTRACTS_ALL.contract_version_num%type;
468: l_contract_name OKC_REP_CONTRACTS_ALL.contract_name%type;
469: l_contract_attachments varchar2(4000);
470: l_process_complete_yn varchar2(1);
471: l_next_approvers ame_util.approversTable2;
472: l_item_indexes ame_util.idList;
473: l_item_classes ame_util.stringList;
474: l_item_ids ame_util.stringList;
475: l_item_sources ame_util.longStringList;
468: l_contract_name OKC_REP_CONTRACTS_ALL.contract_name%type;
469: l_contract_attachments varchar2(4000);
470: l_process_complete_yn varchar2(1);
471: l_next_approvers ame_util.approversTable2;
472: l_item_indexes ame_util.idList;
473: l_item_classes ame_util.stringList;
474: l_item_ids ame_util.stringList;
475: l_item_sources ame_util.longStringList;
476: l_user_name varchar2(4000);
469: l_contract_attachments varchar2(4000);
470: l_process_complete_yn varchar2(1);
471: l_next_approvers ame_util.approversTable2;
472: l_item_indexes ame_util.idList;
473: l_item_classes ame_util.stringList;
474: l_item_ids ame_util.stringList;
475: l_item_sources ame_util.longStringList;
476: l_user_name varchar2(4000);
477: l_role_name varchar2(4000);
470: l_process_complete_yn varchar2(1);
471: l_next_approvers ame_util.approversTable2;
472: l_item_indexes ame_util.idList;
473: l_item_classes ame_util.stringList;
474: l_item_ids ame_util.stringList;
475: l_item_sources ame_util.longStringList;
476: l_user_name varchar2(4000);
477: l_role_name varchar2(4000);
478: l_role_display_name varchar2(4000);
471: l_next_approvers ame_util.approversTable2;
472: l_item_indexes ame_util.idList;
473: l_item_classes ame_util.stringList;
474: l_item_ids ame_util.stringList;
475: l_item_sources ame_util.longStringList;
476: l_user_name varchar2(4000);
477: l_role_name varchar2(4000);
478: l_role_display_name varchar2(4000);
479: l_item_key wf_items.item_key%TYPE;
513: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
514: g_module || l_api_name,
515: 'Calling ame_api2.getNextApprover1 to get the approver id');
516: END IF;
517: ame_util2.detailedApprovalStatusFlagYN := ame_util.booleanTrue;
518: ame_api2.getNextApprovers1(
519: applicationIdIn => G_APPLICATION_ID,
520: transactionTypeIn => G_TRANSACTION_TYPE,
521: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
518: ame_api2.getNextApprovers1(
519: applicationIdIn => G_APPLICATION_ID,
520: transactionTypeIn => G_TRANSACTION_TYPE,
521: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
522: flagApproversAsNotifiedIn => ame_util.booleanTrue,
523: approvalProcessCompleteYNOut => l_process_complete_yn,
524: nextApproversOut => l_next_approvers,
525: itemIndexesOut => l_item_indexes,
526: itemClassesOut => l_item_classes,
785: ) IS
786:
787: l_contract_id OKC_REP_CON_APPROVALS.contract_id%type;
788: l_contract_version OKC_REP_CON_APPROVALS.contract_version_num%type;
789: l_approver_record2 ame_util.approverRecord2;
790: l_approver_id number;
791: l_approval_status VARCHAR2(30);
792: l_recipient_name FND_USER.user_name%type;
793: l_action_code OKC_REP_CON_APPROVALS.action_code%type;
796: l_return_status VARCHAR2(1);
797: l_msg_count NUMBER;
798: l_msg_data VARCHAR2(2000);
799: l_process_complete_yn varchar2(1);
800: l_next_approvers ame_util.approversTable2;
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
797: l_msg_count NUMBER;
798: l_msg_data VARCHAR2(2000);
799: l_process_complete_yn varchar2(1);
800: l_next_approvers ame_util.approversTable2;
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
805: l_item_sources ame_util.longStringList;
798: l_msg_data VARCHAR2(2000);
799: l_process_complete_yn varchar2(1);
800: l_next_approvers ame_util.approversTable2;
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
805: l_item_sources ame_util.longStringList;
806:
799: l_process_complete_yn varchar2(1);
800: l_next_approvers ame_util.approversTable2;
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
805: l_item_sources ame_util.longStringList;
806:
807:
800: l_next_approvers ame_util.approversTable2;
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
805: l_item_sources ame_util.longStringList;
806:
807:
808: CURSOR notif_csr (p_notification_id NUMBER) IS
801: l_item_indexes ame_util.idList;
802: l_item_classes ame_util.stringList;
803: l_item_class_names ame_util.stringList;
804: l_item_ids ame_util.stringList;
805: l_item_sources ame_util.longStringList;
806:
807:
808: CURSOR notif_csr (p_notification_id NUMBER) IS
809: SELECT fu.user_id user_id, fu.user_name user_name,
910: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
911: RAISE OKC_API.G_EXCEPTION_ERROR;
912: END IF;
913: --------------------------------------------------------
914: l_approver_record2.approval_status := ame_util.approvedStatus;
915: ame_api2.updateApprovalStatus(
916: applicationIdIn => G_APPLICATION_ID,
917: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
918: approverIn => l_approver_record2,
953: RAISE OKC_API.G_EXCEPTION_ERROR;
954: END IF;
955: --------------------------------------------------------
956:
957: l_approver_record2.approval_status := ame_util.rejectStatus;
958: -- Update AME approval status
959: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
961: g_module || l_api_name,
1026: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1027: RAISE OKC_API.G_EXCEPTION_ERROR;
1028: END IF;
1029: --------------------------------------------------------
1030: l_approver_record2.approval_status := ame_util.noResponseStatus;
1031:
1032: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1034: g_module || l_api_name,
1099: ) IS
1100:
1101: l_contract_id OKC_REP_CON_APPROVALS.contract_id%type;
1102: l_contract_version OKC_REP_CON_APPROVALS.contract_version_num%type;
1103: l_approver_record2 ame_util.approverRecord2;
1104: l_notification_record ame_util2.notificationRecord;
1105: l_approver_id number;
1106: l_approval_status VARCHAR2(30);
1107: l_recipient_name FND_USER.user_name%type;
1100:
1101: l_contract_id OKC_REP_CON_APPROVALS.contract_id%type;
1102: l_contract_version OKC_REP_CON_APPROVALS.contract_version_num%type;
1103: l_approver_record2 ame_util.approverRecord2;
1104: l_notification_record ame_util2.notificationRecord;
1105: l_approver_id number;
1106: l_approval_status VARCHAR2(30);
1107: l_recipient_name FND_USER.user_name%type;
1108: l_action_code OKC_REP_CON_APPROVALS.action_code%type;
1111: l_return_status VARCHAR2(1);
1112: l_msg_count NUMBER;
1113: l_msg_data VARCHAR2(2000);
1114: l_process_complete_yn varchar2(1);
1115: l_next_approvers ame_util.approversTable2;
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1112: l_msg_count NUMBER;
1113: l_msg_data VARCHAR2(2000);
1114: l_process_complete_yn varchar2(1);
1115: l_next_approvers ame_util.approversTable2;
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1120: l_item_sources ame_util.longStringList;
1113: l_msg_data VARCHAR2(2000);
1114: l_process_complete_yn varchar2(1);
1115: l_next_approvers ame_util.approversTable2;
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1120: l_item_sources ame_util.longStringList;
1121:
1114: l_process_complete_yn varchar2(1);
1115: l_next_approvers ame_util.approversTable2;
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1120: l_item_sources ame_util.longStringList;
1121:
1122:
1115: l_next_approvers ame_util.approversTable2;
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1120: l_item_sources ame_util.longStringList;
1121:
1122:
1123: CURSOR notif_csr (p_notification_id NUMBER) IS
1116: l_item_indexes ame_util.idList;
1117: l_item_classes ame_util.stringList;
1118: l_item_class_names ame_util.stringList;
1119: l_item_ids ame_util.stringList;
1120: l_item_sources ame_util.longStringList;
1121:
1122:
1123: CURSOR notif_csr (p_notification_id NUMBER) IS
1124: SELECT fu.user_id user_id, fu.user_name user_name,
1227: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_ERROR;
1229: END IF;
1230: --------------------------------------------------------
1231: l_approver_record2.approval_status := ame_util.approvedStatus;
1232: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1233: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1234: g_module || l_api_name,
1235: 'Calling ame_api6.updateApprovalStatus');
1276: RAISE OKC_API.G_EXCEPTION_ERROR;
1277: END IF;
1278: --------------------------------------------------------
1279:
1280: l_approver_record2.approval_status := ame_util.rejectStatus;
1281: -- Update AME approval status
1282: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1283: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1284: g_module || l_api_name,
1350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1351: RAISE OKC_API.G_EXCEPTION_ERROR;
1352: END IF;
1353: --------------------------------------------------------
1354: l_approver_record2.approval_status := ame_util.noResponseStatus;
1355:
1356: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1357: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1358: g_module || l_api_name,
1669:
1670: l_api_name VARCHAR2(30);
1671: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1672: l_process_complete_yn varchar2(1);
1673: l_next_approvers ame_util.approversTable2;
1674: l_item_indexes ame_util.idList;
1675: l_item_classes ame_util.stringList;
1676: l_item_ids ame_util.stringList;
1677: l_item_sources ame_util.longStringList;
1670: l_api_name VARCHAR2(30);
1671: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1672: l_process_complete_yn varchar2(1);
1673: l_next_approvers ame_util.approversTable2;
1674: l_item_indexes ame_util.idList;
1675: l_item_classes ame_util.stringList;
1676: l_item_ids ame_util.stringList;
1677: l_item_sources ame_util.longStringList;
1678: l_user_names varchar2(4000);
1671: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1672: l_process_complete_yn varchar2(1);
1673: l_next_approvers ame_util.approversTable2;
1674: l_item_indexes ame_util.idList;
1675: l_item_classes ame_util.stringList;
1676: l_item_ids ame_util.stringList;
1677: l_item_sources ame_util.longStringList;
1678: l_user_names varchar2(4000);
1679:
1672: l_process_complete_yn varchar2(1);
1673: l_next_approvers ame_util.approversTable2;
1674: l_item_indexes ame_util.idList;
1675: l_item_classes ame_util.stringList;
1676: l_item_ids ame_util.stringList;
1677: l_item_sources ame_util.longStringList;
1678: l_user_names varchar2(4000);
1679:
1680: BEGIN
1673: l_next_approvers ame_util.approversTable2;
1674: l_item_indexes ame_util.idList;
1675: l_item_classes ame_util.stringList;
1676: l_item_ids ame_util.stringList;
1677: l_item_sources ame_util.longStringList;
1678: l_user_names varchar2(4000);
1679:
1680: BEGIN
1681:
1714: ame_api2.getNextApprovers1(
1715: applicationIdIn => G_APPLICATION_ID,
1716: transactionTypeIn => G_TRANSACTION_TYPE,
1717: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
1718: flagApproversAsNotifiedIn => ame_util.booleanFalse,
1719: approvalProcessCompleteYNOut => l_process_complete_yn,
1720: nextApproversOut => l_next_approvers,
1721: itemIndexesOut => l_item_indexes,
1722: itemClassesOut => l_item_classes,
1730: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
1731: g_module || l_api_name,
1732: 'l_process_complete_yn is is_contract_approved: ' || l_process_complete_yn);
1733: END IF;
1734: IF (l_process_complete_yn = ame_util.booleanTrue) THEN
1735: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1736: fnd_log.string(FND_LOG.LEVEL_STATEMENT, g_module || l_api_name,
1737: 'The contract is approved');
1738: END IF;
1819:
1820: l_api_name VARCHAR2(30);
1821: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1822: l_process_complete_yn varchar2(1);
1823: l_next_approvers ame_util.approversTable2;
1824: l_item_indexes ame_util.idList;
1825: l_item_classes ame_util.stringList;
1826: l_item_ids ame_util.stringList;
1827: l_item_sources ame_util.longStringList;
1820: l_api_name VARCHAR2(30);
1821: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1822: l_process_complete_yn varchar2(1);
1823: l_next_approvers ame_util.approversTable2;
1824: l_item_indexes ame_util.idList;
1825: l_item_classes ame_util.stringList;
1826: l_item_ids ame_util.stringList;
1827: l_item_sources ame_util.longStringList;
1828: l_user_names varchar2(4000);
1821: l_contract_id OKC_REP_CONTRACTS_ALL.contract_id%type;
1822: l_process_complete_yn varchar2(1);
1823: l_next_approvers ame_util.approversTable2;
1824: l_item_indexes ame_util.idList;
1825: l_item_classes ame_util.stringList;
1826: l_item_ids ame_util.stringList;
1827: l_item_sources ame_util.longStringList;
1828: l_user_names varchar2(4000);
1829:
1822: l_process_complete_yn varchar2(1);
1823: l_next_approvers ame_util.approversTable2;
1824: l_item_indexes ame_util.idList;
1825: l_item_classes ame_util.stringList;
1826: l_item_ids ame_util.stringList;
1827: l_item_sources ame_util.longStringList;
1828: l_user_names varchar2(4000);
1829:
1830: CURSOR wf_process_csr IS
1823: l_next_approvers ame_util.approversTable2;
1824: l_item_indexes ame_util.idList;
1825: l_item_classes ame_util.stringList;
1826: l_item_ids ame_util.stringList;
1827: l_item_sources ame_util.longStringList;
1828: l_user_names varchar2(4000);
1829:
1830: CURSOR wf_process_csr IS
1831: SELECT item_key FROM wf_items
1870: 'Calling ame_api.getNextApprover to get the approver id');
1871: END IF;
1872: -- Using this API to determine if process is complete. Complete process from AME implies
1873: -- Contract is Approved.
1874: ame_util2.detailedApprovalStatusFlagYN := ame_util.booleanTrue;
1875: ame_api2.getNextApprovers1(
1876: applicationIdIn => G_APPLICATION_ID,
1877: transactionTypeIn => G_TRANSACTION_TYPE,
1878: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
1875: ame_api2.getNextApprovers1(
1876: applicationIdIn => G_APPLICATION_ID,
1877: transactionTypeIn => G_TRANSACTION_TYPE,
1878: transactionIdIn => fnd_number.number_to_canonical(l_contract_id),
1879: flagApproversAsNotifiedIn => ame_util.booleanFalse,
1880: approvalProcessCompleteYNOut => l_process_complete_yn,
1881: nextApproversOut => l_next_approvers,
1882: itemIndexesOut => l_item_indexes,
1883: itemClassesOut => l_item_classes,