[Home] [Help]
171: funcmode IN VARCHAR2,
172: resultout OUT NOCOPY VARCHAR2 ) IS
173: l_invoice_id NUMBER;
174: l_hold_id NUMBER;
175: l_next_approver ame_util.approverRecord;
176: l_api_name CONSTANT VARCHAR2(200) := 'Get_Approver';
177: l_debug_info VARCHAR2(2000);
178: l_org_id NUMBER;
179: l_role VARCHAR2(50);
228: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
230: l_api_name,l_debug_info);
231: END IF;
232: IF l_next_approver.approval_status = ame_util.exceptionStatus THEN
233: l_debug_info := 'Error in AME_API.getNextApprover call';
234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
236: l_api_name,l_debug_info);
463: l_api_name,l_debug_info);
464: END IF;
465: AME_API.updateApprovalStatus2(applicationIdIn => 200,
466: transactionIdIn => to_char(l_hold_id),
467: approvalStatusIn => AME_UTIL.approvedStatus,
468: approverPersonIdIn => l_approver_id,
469: approverUserIdIn => NULL,
470: transactionTypeIn => 'APHLD');
471:
566: l_api_name,l_debug_info);
567: END IF;
568: AME_API.updateApprovalStatus2(applicationIdIn => 200,
569: transactionIdIn => to_char(l_hold_id),
570: approvalStatusIn => AME_UTIL.approvedStatus,
571: approverPersonIdIn => l_approver_id,
572: approverUserIdIn => NULL,
573: transactionTypeIn => 'APHLD');
574:
671: l_api_name,l_debug_info);
672: END IF;
673: AME_API.updateApprovalStatus2(applicationIdIn => 200,
674: transactionIdIn => to_char(l_hold_id),
675: approvalStatusIn => AME_UTIL.approvedStatus,
676: approverPersonIdIn => l_approver_id,
677: approverUserIdIn => NULL,
678: transactionTypeIn => 'APHLD');
679:
775: l_api_name,l_debug_info);
776: END IF;
777: AME_API.updateApprovalStatus2(applicationIdIn => 200,
778: transactionIdIn => to_char(l_hold_id),
779: approvalStatusIn => AME_UTIL.approvedStatus,
780: approverPersonIdIn => l_approver_id,
781: approverUserIdIn => NULL,
782: transactionTypeIn => 'APHLD');
783:
939: l_api_name,l_debug_info);
940: END IF;
941: AME_API.updateApprovalStatus2(applicationIdIn => 200,
942: transactionIdIn => to_char(l_hold_id),
943: approvalStatusIn => AME_UTIL.approvedStatus,
944: approverPersonIdIn => l_internal_approver_id,
945: approverUserIdIn => NULL,
946: transactionTypeIn => 'APHLD');
947:
1127: l_api_name,l_debug_info);
1128: END IF;
1129: AME_API.updateApprovalStatus2(applicationIdIn => 200,
1130: transactionIdIn => to_char(l_hold_id),
1131: approvalStatusIn => AME_UTIL.rejectStatus,
1132: approverPersonIdIn => l_internal_approver_id,
1133: approverUserIdIn => NULL,
1134: transactionTypeIn => 'APHLD');
1135:
1254: END IF;
1255:
1256: AME_API.updateApprovalStatus2(applicationIdIn => 200,
1257: transactionIdIn => to_char(l_hold_id),
1258: approvalStatusIn => AME_UTIL.approvedStatus,
1259: approverPersonIdIn => l_approver_id,
1260: approverUserIdIn => NULL,
1261: transactionTypeIn => 'APHLD');
1262:
1300: actid IN NUMBER,
1301: funcmode IN VARCHAR2,
1302: resultout OUT NOCOPY VARCHAR2) IS
1303:
1304: l_result ame_util.stringlist;
1305: l_reason ame_util.stringlist;
1306: l_invoice_id NUMBER;
1307: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
1308: l_tr_reason VARCHAR2(240);
1301: funcmode IN VARCHAR2,
1302: resultout OUT NOCOPY VARCHAR2) IS
1303:
1304: l_result ame_util.stringlist;
1305: l_reason ame_util.stringlist;
1306: l_invoice_id NUMBER;
1307: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
1308: l_tr_reason VARCHAR2(240);
1309: l_api_name CONSTANT VARCHAR2(200) := 'Check_Header_Requirements';
1559: WHERE po_header_id is not null
1560: AND invoice_id = l_invoice_id
1561: AND wfapproval_status = 'INITIATED';
1562:
1563: l_result ame_util.stringlist;
1564: l_reason ame_util.stringlist;
1565: l_invoice_id NUMBER;
1566: l_l_hist AP_INV_APRVL_HIST%ROWTYPE;
1567: l_tr_reason VARCHAR2(240);
1560: AND invoice_id = l_invoice_id
1561: AND wfapproval_status = 'INITIATED';
1562:
1563: l_result ame_util.stringlist;
1564: l_reason ame_util.stringlist;
1565: l_invoice_id NUMBER;
1566: l_l_hist AP_INV_APRVL_HIST%ROWTYPE;
1567: l_tr_reason VARCHAR2(240);
1568: l_api_name CONSTANT VARCHAR2(200) := 'Check_Line_Requirements';
1782: resultout OUT NOCOPY VARCHAR2 ) IS
1783:
1784: l_invoice_id NUMBER;
1785: l_complete VARCHAR2(1);
1786: l_next_approvers ame_util.approversTable2;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1783:
1784: l_invoice_id NUMBER;
1785: l_complete VARCHAR2(1);
1786: l_next_approvers ame_util.approversTable2;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1791: l_source ame_util.longStringList;
1784: l_invoice_id NUMBER;
1785: l_complete VARCHAR2(1);
1786: l_next_approvers ame_util.approversTable2;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1791: l_source ame_util.longStringList;
1792: l_line_num NUMBER;
1785: l_complete VARCHAR2(1);
1786: l_next_approvers ame_util.approversTable2;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1791: l_source ame_util.longStringList;
1792: l_line_num NUMBER;
1793: l_api_name CONSTANT VARCHAR2(200) := 'Get_Approvers';
1786: l_next_approvers ame_util.approversTable2;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1791: l_source ame_util.longStringList;
1792: l_line_num NUMBER;
1793: l_api_name CONSTANT VARCHAR2(200) := 'Get_Approvers';
1794: l_iteration NUMBER;
1787: l_next_approver ame_util.approverRecord2;
1788: l_index ame_util.idList;
1789: l_ids ame_util.stringList;
1790: l_class ame_util.stringList;
1791: l_source ame_util.longStringList;
1792: l_line_num NUMBER;
1793: l_api_name CONSTANT VARCHAR2(200) := 'Get_Approvers';
1794: l_iteration NUMBER;
1795: l_debug_info VARCHAR2(2000);
1838: AME_API2.getNextApprovers1
1839: (applicationIdIn => 200,
1840: transactionTypeIn => 'APINV',
1841: transactionIdIn => to_char(l_invoice_id),
1842: flagApproversAsNotifiedIn => ame_util.booleanFalse,
1843: approvalProcessCompleteYNOut => l_complete,
1844: nextApproversOut => l_next_approvers,
1845: itemIndexesOut => l_index,
1846: itemIdsOut => l_ids,
1854: G_MODULE_NAME||l_api_name,
1855: l_debug_info);
1856: END IF;
1857:
1858: IF l_complete = ame_util.booleanFalse THEN
1859: -- Loop through approvers' table returned by AME
1860: l_debug_info := l_api_name || ': more approvers';
1861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1862: FND_LOG.STRING(G_LEVEL_STATEMENT,
1875: --
1876: FOR l_table IN 1..l_next_approvers.count LOOP
1877: l_next_approver := l_next_approvers(l_table);
1878: IF nvl(l_next_approver.item_class,'line item') <>
1879: ame_util.headerItemClassName
1880: THEN
1881: l_debug_info := l_api_name || ': item_id = '|| l_next_approver.item_id;
1882: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1883: FND_LOG.STRING(G_LEVEL_STATEMENT,
1890: -- not once per the invoice line even all lines have same approver
1891: -- which is redundant
1892: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
1893: transactionIdIn => to_char(l_invoice_id),
1894: approvalStatusIn => AME_UTIL.notifiedStatus,
1895: approverNameIn => l_next_approver.NAME,
1896: transactionTypeIn => 'APINV',
1897: itemClassIn => l_next_approver.item_class,
1898: itemIdIn => l_next_approver.item_id);
1927: l_debug_info);
1928: END IF;
1929: --Depending on the type of item class, we need to set
1930: --some variables. Need correction once project/dist seeded
1931: IF l_class(l_rec) = ame_util.lineItemItemClassName THEN
1932: l_line_num := l_ids(l_rec);
1933: ELSIF l_class(l_rec) = 'project code' THEN
1934: -- Manoj:
1935: -- Need to have an array of lines
1938: INTO l_line_num
1939: FROM AP_INVOICE_DISTRIBUTIONS_ALL
1940: WHERE project_id =l_ids(l_rec);*/
1941: null;
1942: ELSIF l_class(l_rec) = ame_util.costCenterItemClassName THEN
1943: -- Manoj:
1944: -- Need to have an array of lines
1945: --
1946: /*SELECT Invoice_Line_Number
1948: FROM AP_INVOICE_DISTRIBUTIONS_ALL
1949: WHERE project_id =l_ids(l_rec);*/
1950: null;
1951: ELSIF l_class(l_rec) <>
1952: ame_util.lineItemItemClassName
1953: AND l_class(l_rec) <>
1954: ame_util.headerItemClassName THEN
1955: SELECT Invoice_Line_Number
1956: INTO l_line_num
1950: null;
1951: ELSIF l_class(l_rec) <>
1952: ame_util.lineItemItemClassName
1953: AND l_class(l_rec) <>
1954: ame_util.headerItemClassName THEN
1955: SELECT Invoice_Line_Number
1956: INTO l_line_num
1957: FROM AP_INVOICE_DISTRIBUTIONS_ALL
1958: WHERE invoice_distribution_id = l_ids(l_rec);
1958: WHERE invoice_distribution_id = l_ids(l_rec);
1959: END IF; --l_class
1960: /**************/
1961: --IF l_class(l_rec) <>
1962: -- ame_util.headerItemClassName THEN
1963: --commented for bug 14743008
1964: /* AME_API2.updateApprovalStatus2(applicationIdIn => 200,
1965: transactionIdIn => to_char(l_invoice_id),
1966: approvalStatusIn => AME_UTIL.notifiedStatus,
1962: -- ame_util.headerItemClassName THEN
1963: --commented for bug 14743008
1964: /* AME_API2.updateApprovalStatus2(applicationIdIn => 200,
1965: transactionIdIn => to_char(l_invoice_id),
1966: approvalStatusIn => AME_UTIL.notifiedStatus,
1967: approverNameIn => l_next_approver.NAME,
1968: transactionTypeIn => 'APINV',
1969: itemClassIn => l_class(l_rec),
1970: itemIdIn => l_ids(l_rec)); */
2121: --Depending on the type of item class, we need to set
2122: --some variables:
2123: --
2124: IF l_next_approver.item_class =
2125: ame_util.lineItemItemClassName THEN
2126: l_line_num := l_next_approver.item_id;
2127: ELSIF l_next_approver.item_class = 'project code' THEN
2128: -- Manoj:
2129: -- Need to have an array of lines
2133: FROM AP_INVOICE_DISTRIBUTIONS_ALL
2134: WHERE project_id = l_next_approver.item_id;*/
2135: null;
2136: ELSIF l_next_approver.item_class =
2137: ame_util.costCenterItemClassName THEN
2138: -- Manoj:
2139: -- Need to have an array of lines
2140: --
2141: /*SELECT Invoice_Line_Number
2143: FROM AP_INVOICE_DISTRIBUTIONS_ALL
2144: WHERE project_id = l_next_approver.item_id;*/
2145: null;
2146: ELSIF l_next_approver.item_class <>
2147: ame_util.lineItemItemClassName
2148: AND l_next_approver.item_class <>
2149: ame_util.headerItemClassName THEN
2150: SELECT Invoice_Line_Number
2151: INTO l_line_num
2145: null;
2146: ELSIF l_next_approver.item_class <>
2147: ame_util.lineItemItemClassName
2148: AND l_next_approver.item_class <>
2149: ame_util.headerItemClassName THEN
2150: SELECT Invoice_Line_Number
2151: INTO l_line_num
2152: FROM AP_INVOICE_DISTRIBUTIONS_ALL
2153: WHERE invoice_distribution_id = l_next_approver.item_id;
2154: END IF; --l_class
2155:
2156: /********/
2157: --IF l_next_approver.item_class <>
2158: --ame_util.headerItemClassName THEN
2159: --commented for bug 14743008
2160: /* AME_API2.updateApprovalStatus2(applicationIdIn => 200,
2161: transactionIdIn => to_char(l_invoice_id),
2162: approvalStatusIn => AME_UTIL.notifiedStatus,
2158: --ame_util.headerItemClassName THEN
2159: --commented for bug 14743008
2160: /* AME_API2.updateApprovalStatus2(applicationIdIn => 200,
2161: transactionIdIn => to_char(l_invoice_id),
2162: approvalStatusIn => AME_UTIL.notifiedStatus,
2163: approverNameIn => l_next_approver.NAME,
2164: transactionTypeIn => 'APINV',
2165: itemClassIn => l_next_approver.item_class,
2166: itemIdIn => l_next_approver.item_id); */
2300: l_debug_info);
2301: END IF;
2302: END IF; --more than one item_id per approver
2303: END IF; -- end if for IF nvl(l_next_approver.item_class,
2304: -- 'line item') <> ame_util.headerItemClassName
2305: END LOOP; --nextApprovers table
2306: END IF; --complete
2307: resultout := wf_engine.eng_completed;
2308: EXCEPTION
3038: l_api_name,l_debug_info);
3039: END IF;
3040: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3041: transactionIdIn => to_char(l_invoice_id),
3042: approvalStatusIn => AME_UTIL.rejectStatus,
3043: approverNameIn => l_role,
3044: transactionTypeIn => 'APINV',
3045: itemClassIn => ame_util.headerItemClassName,
3046: itemIdIn => to_char(l_invoice_id));
3041: transactionIdIn => to_char(l_invoice_id),
3042: approvalStatusIn => AME_UTIL.rejectStatus,
3043: approverNameIn => l_role,
3044: transactionTypeIn => 'APINV',
3045: itemClassIn => ame_util.headerItemClassName,
3046: itemIdIn => to_char(l_invoice_id));
3047:
3048: fnd_client_info.set_org_context(l_org_id);
3049:
3214: l_api_name,l_debug_info);
3215: END IF;
3216: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3217: transactionIdIn => to_char(l_invoice_id),
3218: approvalStatusIn => AME_UTIL.approvedStatus,
3219: approverNameIn => l_role,
3220: transactionTypeIn => 'APINV',
3221: itemClassIn => ame_util.headerItemClassName,
3222: itemIdIn => to_char(l_invoice_id));
3217: transactionIdIn => to_char(l_invoice_id),
3218: approvalStatusIn => AME_UTIL.approvedStatus,
3219: approverNameIn => l_role,
3220: transactionTypeIn => 'APINV',
3221: itemClassIn => ame_util.headerItemClassName,
3222: itemIdIn => to_char(l_invoice_id));
3223:
3224: fnd_client_info.set_org_context(l_org_id);
3225:
3444:
3445: --update AME with response
3446: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3447: transactionIdIn => to_char(l_invoice_id),
3448: approvalStatusIn => AME_UTIL.rejectStatus,
3449: approverNameIn => l_name,
3450: transactionTypeIn => 'APINV',
3451: itemClassIn => l_item_class,
3452: itemIdIn => l_item_id);
3689:
3690: --bug 14369128
3691: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3692: transactionIdIn => to_char(l_invoice_id),
3693: approvalStatusIn => AME_UTIL.approvedStatus,
3694: approverNameIn => l_role, --bug 13919019
3695: transactionTypeIn => 'APINV',
3696: itemClassIn => l_item_class,
3697: itemIdIn => l_item_id);
3708: /* --bug 14369128 commented
3709: --update AME with response
3710: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3711: transactionIdIn => to_char(l_invoice_id),
3712: approvalStatusIn => AME_UTIL.approvedStatus,
3713: approverNameIn => l_role, --bug 13919019
3714: transactionTypeIn => 'APINV',
3715: itemClassIn => l_item_class,
3716: itemIdIn => l_item_id); */
3971: --update AME with response
3972: /*
3973: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3974: transactionIdIn => to_char(l_invoice_id),
3975: approvalStatusIn => AME_UTIL.approvedStatus,
3976: approverNameIn => l_role_name,
3977: transactionTypeIn => 'APINV',
3978: itemClassIn => ame_util.headerItemClassName,
3979: itemIdIn => to_char(l_invoice_id));
3974: transactionIdIn => to_char(l_invoice_id),
3975: approvalStatusIn => AME_UTIL.approvedStatus,
3976: approverNameIn => l_role_name,
3977: transactionTypeIn => 'APINV',
3978: itemClassIn => ame_util.headerItemClassName,
3979: itemIdIn => to_char(l_invoice_id));
3980: */
3981: l_hist_rec.AMOUNT_APPROVED := null;
3982:
4340: /* Not needed since we are completing the parent activity
4341: --update AME with response
4342: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
4343: transactionIdIn => to_char(l_invoice_id),
4344: approvalStatusIn => AME_UTIL.rejectStatus,
4345: approverNameIn => l_role_name,
4346: transactionTypeIn => 'APINV',
4347: itemClassIn => ame_util.headerItemClassName,
4348: itemIdIn => to_char(l_invoice_id));
4343: transactionIdIn => to_char(l_invoice_id),
4344: approvalStatusIn => AME_UTIL.rejectStatus,
4345: approverNameIn => l_role_name,
4346: transactionTypeIn => 'APINV',
4347: itemClassIn => ame_util.headerItemClassName,
4348: itemIdIn => to_char(l_invoice_id));
4349: */
4350: l_debug_info := 'Before calling insert_history_table for Line'
4351: || l_line_number;
4800: itemkey IN VARCHAR2,
4801: actid IN NUMBER,
4802: funcmode IN VARCHAR2,
4803: resultout OUT NOCOPY VARCHAR2 ) IS
4804: l_admin_approver AME_UTIL.approverRecord;
4805: l_ret_approver VARCHAR2(50);
4806: l_name wf_users.name%TYPE; --bug 8620671
4807: l_display_name VARCHAR2(150);
4808: l_debug_info VARCHAR2(50);
4815: l_count NUMBER(9);
4816: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
4817: l_notf_iteration NUMBER;
4818: l_complete VARCHAR2(1);
4819: l_next_approvers ame_util.approversTable2;
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4816: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
4817: l_notf_iteration NUMBER;
4818: l_complete VARCHAR2(1);
4819: l_next_approvers ame_util.approversTable2;
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4824: l_source ame_util.longStringList;
4817: l_notf_iteration NUMBER;
4818: l_complete VARCHAR2(1);
4819: l_next_approvers ame_util.approversTable2;
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4824: l_source ame_util.longStringList;
4825: l_ampersand varchar2(1);
4818: l_complete VARCHAR2(1);
4819: l_next_approvers ame_util.approversTable2;
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4824: l_source ame_util.longStringList;
4825: l_ampersand varchar2(1);
4826: Cursor C_invoice (p_invoice_id IN ap_invoices_all.invoice_id%TYPE) IS
4819: l_next_approvers ame_util.approversTable2;
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4824: l_source ame_util.longStringList;
4825: l_ampersand varchar2(1);
4826: Cursor C_invoice (p_invoice_id IN ap_invoices_all.invoice_id%TYPE) IS
4827: SELECT invoice_type_lookup_code
4820: l_next_approver ame_util.approverRecord2;
4821: l_index ame_util.idList;
4822: l_ids ame_util.stringList;
4823: l_class ame_util.stringList;
4824: l_source ame_util.longStringList;
4825: l_ampersand varchar2(1);
4826: Cursor C_invoice (p_invoice_id IN ap_invoices_all.invoice_id%TYPE) IS
4827: SELECT invoice_type_lookup_code
4828: ,gl_date
4876: */
4877: AME_API2.getNextApprovers1(applicationIdIn => 200,
4878: transactionTypeIn => 'APINV',
4879: transactionIdIn => substr(itemkey, 1, instr(itemkey,'_')-1),
4880: flagApproversAsNotifiedIn => ame_util.booleanFalse,
4881: approvalProcessCompleteYNOut => l_complete,
4882: nextApproversOut => l_next_approvers,
4883: itemIndexesOut => l_index,
4884: itemIdsOut => l_ids,
4898: --Now set the environment
4899: MO_GLOBAL.INIT ('SQLAP');
4900: MO_GLOBAL.set_policy_context('S',l_org_id);
4901:
4902: --IF l_complete = ame_util.booleanTrue THEN /*no approver on the list*/
4903: IF l_next_approvers.count < 1 THEN
4904: resultout := wf_engine.eng_completed||':'||'FINISH';
4905:
4906: --check for prior approvers
5107: itemkey IN VARCHAR2,
5108: actid IN NUMBER,
5109: funcmode IN VARCHAR2,
5110: resultout OUT NOCOPY VARCHAR2 ) IS
5111: l_esc_approver AME_UTIL.approverRecord2;
5112: l_name wf_users.name%TYPE; --bug 8620671
5113: l_esc_approver_name VARCHAR2(150);
5114: l_esc_approver_id NUMBER(15);
5115: l_approver_id NUMBER(15);
5128: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
5129: l_notf_iteration NUMBER;
5130: -- bug 8450681 begin
5131: l_display_name VARCHAR2(150);
5132: l_next_approvers ame_util.approversTable2;
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5129: l_notf_iteration NUMBER;
5130: -- bug 8450681 begin
5131: l_display_name VARCHAR2(150);
5132: l_next_approvers ame_util.approversTable2;
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5137: l_source ame_util.longStringList;
5130: -- bug 8450681 begin
5131: l_display_name VARCHAR2(150);
5132: l_next_approvers ame_util.approversTable2;
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5137: l_source ame_util.longStringList;
5138: l_complete VARCHAR2(1);
5131: l_display_name VARCHAR2(150);
5132: l_next_approvers ame_util.approversTable2;
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5137: l_source ame_util.longStringList;
5138: l_complete VARCHAR2(1);
5139: -- bug 8450681 end
5132: l_next_approvers ame_util.approversTable2;
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5137: l_source ame_util.longStringList;
5138: l_complete VARCHAR2(1);
5139: -- bug 8450681 end
5140: BEGIN
5133: l_next_approver ame_util.approverRecord2;
5134: l_index ame_util.idList;
5135: l_ids ame_util.stringList;
5136: l_class ame_util.stringList;
5137: l_source ame_util.longStringList;
5138: l_complete VARCHAR2(1);
5139: -- bug 8450681 end
5140: BEGIN
5141: l_debug_info := 'Start';
5216: l_esc_role,
5217: l_esc_role_display);
5218: -- bug#6837841 Changes End
5219: l_esc_approver.name := l_esc_role;
5220: l_esc_approver.api_insertion := ame_util.apiInsertion;
5221: l_esc_approver.authority := ame_util.authorityApprover;
5222: l_esc_approver.approval_status := ame_util.forwardStatus;
5223:
5224: --update AME
5217: l_esc_role_display);
5218: -- bug#6837841 Changes End
5219: l_esc_approver.name := l_esc_role;
5220: l_esc_approver.api_insertion := ame_util.apiInsertion;
5221: l_esc_approver.authority := ame_util.authorityApprover;
5222: l_esc_approver.approval_status := ame_util.forwardStatus;
5223:
5224: --update AME
5225: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
5218: -- bug#6837841 Changes End
5219: l_esc_approver.name := l_esc_role;
5220: l_esc_approver.api_insertion := ame_util.apiInsertion;
5221: l_esc_approver.authority := ame_util.authorityApprover;
5222: l_esc_approver.approval_status := ame_util.forwardStatus;
5223:
5224: --update AME
5225: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
5226: transactionTypeIn => 'APINV',
5224: --update AME
5225: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
5226: transactionTypeIn => 'APINV',
5227: transactionIdIn => to_char(l_invoice_id),
5228: approvalStatusIn => AME_UTIL.noResponseStatus,
5229: approverNameIn => l_role,
5230: itemClassIn => ame_util.headerItemClassName,
5231: itemIdIn => to_char(l_invoice_id),
5232: forwardeeIn => l_esc_approver);
5226: transactionTypeIn => 'APINV',
5227: transactionIdIn => to_char(l_invoice_id),
5228: approvalStatusIn => AME_UTIL.noResponseStatus,
5229: approverNameIn => l_role,
5230: itemClassIn => ame_util.headerItemClassName,
5231: itemIdIn => to_char(l_invoice_id),
5232: forwardeeIn => l_esc_approver);
5233: -- bug 8450681 begins
5234: --get the next layer (stage) of approvers
5235: AME_API2.getNextApprovers1
5236: (applicationIdIn => 200,
5237: transactionTypeIn => 'APINV',
5238: transactionIdIn => to_char(l_invoice_id),
5239: flagApproversAsNotifiedIn => ame_util.booleanFalse,
5240: approvalProcessCompleteYNOut => l_complete,
5241: nextApproversOut => l_next_approvers,
5242: itemIndexesOut => l_index,
5243: itemIdsOut => l_ids,
5313: WHERE invap.Notification_Key = itemkey
5314: AND al.line_number = invap.line_number
5315: AND al.invoice_id = invap.invoice_id;
5316:
5317: l_esc_approver AME_UTIL.approverRecord2;
5318: l_name wf_users.name%TYPE; --bug 8620671
5319: l_esc_approver_name VARCHAR2(150);
5320: l_esc_approver_id NUMBER(15);
5321: l_approver_id NUMBER(15);
5339: l_invoice_key VARCHAR2(50);
5340: l_notf_iteration NUMBER;
5341: -- bug 13919019 begin
5342: l_display_name VARCHAR2(150);
5343: l_next_approvers ame_util.approversTable2;
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5340: l_notf_iteration NUMBER;
5341: -- bug 13919019 begin
5342: l_display_name VARCHAR2(150);
5343: l_next_approvers ame_util.approversTable2;
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5348: l_source ame_util.longStringList;
5341: -- bug 13919019 begin
5342: l_display_name VARCHAR2(150);
5343: l_next_approvers ame_util.approversTable2;
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5348: l_source ame_util.longStringList;
5349: l_complete VARCHAR2(1);
5342: l_display_name VARCHAR2(150);
5343: l_next_approvers ame_util.approversTable2;
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5348: l_source ame_util.longStringList;
5349: l_complete VARCHAR2(1);
5350: -- bug 13919019 ends
5343: l_next_approvers ame_util.approversTable2;
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5348: l_source ame_util.longStringList;
5349: l_complete VARCHAR2(1);
5350: -- bug 13919019 ends
5351:
5344: l_next_approver ame_util.approverRecord2;
5345: l_index ame_util.idList;
5346: l_ids ame_util.stringList;
5347: l_class ame_util.stringList;
5348: l_source ame_util.longStringList;
5349: l_complete VARCHAR2(1);
5350: -- bug 13919019 ends
5351:
5352:
5435: l_esc_role_display);
5436: -- modified for 8682244
5437:
5438: l_esc_approver.name := l_esc_role;
5439: l_esc_approver.api_insertion := ame_util.apiInsertion;
5440: l_esc_approver.authority := ame_util.authorityApprover;
5441: l_esc_approver.approval_status := ame_util.forwardStatus;
5442:
5443: l_hist_rec.HISTORY_TYPE := 'LINESAPPROVAL';
5436: -- modified for 8682244
5437:
5438: l_esc_approver.name := l_esc_role;
5439: l_esc_approver.api_insertion := ame_util.apiInsertion;
5440: l_esc_approver.authority := ame_util.authorityApprover;
5441: l_esc_approver.approval_status := ame_util.forwardStatus;
5442:
5443: l_hist_rec.HISTORY_TYPE := 'LINESAPPROVAL';
5444: l_hist_rec.INVOICE_ID := l_invoice_id;
5437:
5438: l_esc_approver.name := l_esc_role;
5439: l_esc_approver.api_insertion := ame_util.apiInsertion;
5440: l_esc_approver.authority := ame_util.authorityApprover;
5441: l_esc_approver.approval_status := ame_util.forwardStatus;
5442:
5443: l_hist_rec.HISTORY_TYPE := 'LINESAPPROVAL';
5444: l_hist_rec.INVOICE_ID := l_invoice_id;
5445: l_hist_rec.ITERATION := l_iteration;
5467: --update AME
5468: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
5469: transactionTypeIn => 'APINV',
5470: transactionIdIn => to_char(l_invoice_id),
5471: approvalStatusIn => AME_UTIL.noResponseStatus,
5472: approverNameIn => l_role,
5473: itemClassIn => l_item_class,
5474: itemIdIn => l_item_id,
5475: forwardeeIn => l_esc_approver);
5494: AME_API2.getNextApprovers1
5495: (applicationIdIn => 200,
5496: transactionTypeIn => 'APINV',
5497: transactionIdIn => to_char(l_invoice_id),
5498: flagApproversAsNotifiedIn => ame_util.booleanFalse,
5499: approvalProcessCompleteYNOut => l_complete,
5500: nextApproversOut => l_next_approvers,
5501: itemIndexesOut => l_index,
5502: itemIdsOut => l_ids,
6185:
6186: -- Bug 7710828. Now passing p_invoice_id instead of l_invoice_id.
6187: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
6188: transactionIdIn => to_char(p_invoice_id),
6189: approvalStatusIn => AME_UTIL.nullStatus,
6190: approverNameIn => l_name,
6191: transactionTypeIn => 'APINV',
6192: itemClassIn => l_item_class,
6193: itemIdIn => l_item_id);
6222:
6223: -- Bug 7710828. Now passing p_invoice_id instead of l_invoice_id.
6224: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
6225: transactionIdIn => to_char(p_invoice_id),
6226: approvalStatusIn => AME_UTIL.nullStatus,
6227: approverNameIn => l_name,
6228: transactionTypeIn => 'APINV',
6229: itemClassIn => l_item_class,
6230: itemIdIn => l_item_id);
6421: --update AME with response
6422: IF l_response IN ('APPROVED','ACCEPT') THEN
6423: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
6424: transactionIdIn => to_char(l_invoice_id),
6425: approvalStatusIn => AME_UTIL.approvedStatus,
6426: approverNameIn => l_name,
6427: transactionTypeIn => 'APINV',
6428: itemClassIn => l_item_class,
6429: itemIdIn => l_item_id);
6429: itemIdIn => l_item_id);
6430: ELSIF l_response = 'REJECTED' THEN
6431: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
6432: transactionIdIn => to_char(l_invoice_id),
6433: approvalStatusIn => AME_UTIL.rejectStatus,
6434: approverNameIn => l_name,
6435: transactionTypeIn => 'APINV',
6436: itemClassIn => l_item_class,
6437: itemIdIn => l_item_id);
7056: p_calling_sequence IN VARCHAR2) IS
7057:
7058: l_invoice_id NUMBER;
7059: l_complete VARCHAR2(1);
7060: l_next_approvers ame_util.approversTable2;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7057:
7058: l_invoice_id NUMBER;
7059: l_complete VARCHAR2(1);
7060: l_next_approvers ame_util.approversTable2;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7065: l_source ame_util.longStringList;
7058: l_invoice_id NUMBER;
7059: l_complete VARCHAR2(1);
7060: l_next_approvers ame_util.approversTable2;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7065: l_source ame_util.longStringList;
7066: l_line_num NUMBER;
7059: l_complete VARCHAR2(1);
7060: l_next_approvers ame_util.approversTable2;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7065: l_source ame_util.longStringList;
7066: l_line_num NUMBER;
7067: l_api_name CONSTANT VARCHAR2(200) := 'Get_All_Approvers';
7060: l_next_approvers ame_util.approversTable2;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7065: l_source ame_util.longStringList;
7066: l_line_num NUMBER;
7067: l_api_name CONSTANT VARCHAR2(200) := 'Get_All_Approvers';
7068: l_iteration NUMBER;
7061: l_next_approver ame_util.approverRecord2;
7062: l_index ame_util.idList;
7063: l_ids ame_util.stringList;
7064: l_class ame_util.stringList;
7065: l_source ame_util.longStringList;
7066: l_line_num NUMBER;
7067: l_api_name CONSTANT VARCHAR2(200) := 'Get_All_Approvers';
7068: l_iteration NUMBER;
7069: l_debug_info VARCHAR2(2000);
7129: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7130: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7131: l_api_name,l_debug_info);
7132: END IF;
7133: IF l_complete = ame_util.booleanFalse THEN
7134: --Loop through approvers' table returned by AME
7135: l_debug_info := 'more approvers';
7136: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7178: --Depending on the type of item class, we need to set
7179: --some variables
7180: --amy need correction once project/dist seeded
7181: IF l_class(l_rec) =
7182: ame_util.lineItemItemClassName THEN
7183: l_line_num := l_ids(l_rec);
7184: ELSIF l_class(l_rec) = 'project code' THEN
7185:
7186: SELECT Invoice_Line_Number
7187: INTO l_line_num
7188: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7189: WHERE project_id =l_ids(l_rec);
7190: ELSIF l_class(l_rec) =
7191: ame_util.costCenterItemClassName THEN
7192:
7193: SELECT Invoice_Line_Number
7194: INTO l_line_num
7195: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7195: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7196: WHERE project_id =l_ids(l_rec);
7197: --distributions
7198: ELSIF l_class(l_rec) <>
7199: ame_util.lineItemItemClassName
7200: AND l_class(l_rec) <>
7201: ame_util.headerItemClassName THEN
7202:
7203: SELECT Invoice_Line_Number
7197: --distributions
7198: ELSIF l_class(l_rec) <>
7199: ame_util.lineItemItemClassName
7200: AND l_class(l_rec) <>
7201: ame_util.headerItemClassName THEN
7202:
7203: SELECT Invoice_Line_Number
7204: INTO l_line_num
7205: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7258: END IF;
7259: --Depending on the type of item class, we need to set
7260: --some variables:
7261: IF l_next_approver.item_class =
7262: ame_util.lineItemItemClassName THEN
7263: l_line_num := l_next_approver.item_id;
7264: ELSIF l_next_approver.item_class = 'project code' THEN
7265:
7266: SELECT Invoice_Line_Number
7267: INTO l_line_num
7268: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7269: WHERE project_id = l_next_approver.item_id;
7270: ELSIF l_next_approver.item_class =
7271: ame_util.costCenterItemClassName THEN
7272:
7273: SELECT Invoice_Line_Number
7274: INTO l_line_num
7275: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7275: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7276: WHERE project_id = l_next_approver.item_id;
7277: --distributions
7278: ELSIF l_next_approver.item_class <>
7279: ame_util.lineItemItemClassName
7280: AND l_next_approver.item_class <>
7281: ame_util.headerItemClassName THEN
7282:
7283: SELECT Invoice_Line_Number
7277: --distributions
7278: ELSIF l_next_approver.item_class <>
7279: ame_util.lineItemItemClassName
7280: AND l_next_approver.item_class <>
7281: ame_util.headerItemClassName THEN
7282:
7283: SELECT Invoice_Line_Number
7284: INTO l_line_num
7285: FROM AP_INVOICE_DISTRIBUTIONS_ALL
7896: l_org_id NUMBER(15);
7897: l_name wf_users.name%TYPE; --bug 8620671
7898: l_display_name VARCHAR2(150);
7899: l_forward_to_user_id WF_ROLES.ORIG_SYSTEM_ID%TYPE;
7900: l_esc_approver AME_UTIL.approverRecord;
7901: l_rec_role VARCHAR2(50);
7902: l_comments VARCHAR2(240);
7903: l_hist_id NUMBER(15);
7904: l_amount ap_invoices_all.invoice_amount%TYPE;
8272: l_org_id NUMBER(15);
8273: l_name wf_users.name%TYPE; --bug 8620671
8274: l_display_name VARCHAR2(150);
8275: l_forward_to_user_id WF_ROLES.ORIG_SYSTEM_ID%TYPE;
8276: l_esc_approver AME_UTIL.approverRecord;
8277: l_rec_role VARCHAR2(50);
8278: l_comments VARCHAR2(240);
8279: l_hist_id NUMBER(15);
8280: l_amount ap_invoices_all.invoice_amount%TYPE;
8809: resultout OUT NOCOPY VARCHAR2 ) --Set resultout
8810: IS
8811: l_transfer_to_role VARCHAR2(50); --The variable stores the Forwardee role
8812: l_original_recipient VARCHAR2(50); -- The variable stores the Forwarder role
8813: NxtApprover_rec ame_util.approverRecord2; --The original approver record
8814: Fwd_Rec Ame_Util.Approverrecord2; --The forwardee record
8815: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'TRANSFER_NOTIFICATION'; -- for fnd logs
8816: l_invoice_id NUMBER(15); --Variable used to store the invoice id
8817: l_org_id NUMBER(15); --Variable used to store the org id
8810: IS
8811: l_transfer_to_role VARCHAR2(50); --The variable stores the Forwardee role
8812: l_original_recipient VARCHAR2(50); -- The variable stores the Forwarder role
8813: NxtApprover_rec ame_util.approverRecord2; --The original approver record
8814: Fwd_Rec Ame_Util.Approverrecord2; --The forwardee record
8815: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'TRANSFER_NOTIFICATION'; -- for fnd logs
8816: l_invoice_id NUMBER(15); --Variable used to store the invoice id
8817: l_org_id NUMBER(15); --Variable used to store the org id
8818: l_fwd_role VARCHAR2(50); -- Variable stored to use the forward role
8836: l_invoice_key VARCHAR2(50);
8837: l_name AP_APINV_APPROVERS.ROLE_NAME%TYPE;
8838: l_item_class AP_APINV_APPROVERS.ITEM_CLASS%TYPE;
8839: l_item_id AP_APINV_APPROVERS.ITEM_ID%TYPE;
8840: approver ame_util.approverRecord2;
8841: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
8842: --l_status VARCHAR2(50);
8843: l_comments VARCHAR2(240);
8844: l_display_name VARCHAR2(150);
8886: l_original_recipient := WF_ENGINE.context_original_recipient; -- Obtaining the forwarder's role
8887: l_rec_role := WF_ENGINE.context_text;
8888: fwd_rec.name := l_transfer_to_role; --Setting the name of the forwardee record to the forwardee role
8889: NxtApprover_rec.name :=l_original_recipient; --Setting the name of the forwarder record to the forwarder role
8890: NxtApprover_rec.approval_status := ame_util.ForwardStatus; --Setting the status as ame_util.ForwardStatus which is 'FORWARD'
8891: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'ROLE_ACTUAL', l_transfer_to_role); --Setting the role_actual attribute to forwardee role
8892: Wf_Engine.Setitemattrtext(Itemtype, Itemkey, 'DOCUMENT_APPROVER', L_Transfer_To_Role); --Setting the DOCUMENT_APPROVER attribute to forwardee role
8893: WF_ENGINE.SetItemAttrText(itemtype, itemkey, 'FORWARD_ROLE', l_transfer_to_role); --Setting the FORWARD_ROLE attribute to forwardee role
8894:
8960:
8961: approver.name := l_name;
8962: approver.item_class := l_item_class ;
8963: approver.item_id := l_item_id ;
8964: approver.approval_status := AME_UTIL.forwardStatus;
8965: approver.action_type_id :=actid ;
8966:
8967: ame_approver_type_pkg.getOrigSystemIdAndDisplayName(nameIn =>approver.name,
8968: origSystemOut => approver.orig_system,
8970: displayNameOut => approver.display_name);
8971:
8972: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
8973: transactionIdIn => to_char(l_invoice_id),
8974: approvalStatusIn => AME_UTIL.forwardStatus,
8975: approverNameIn => l_name,
8976: transactionTypeIn => 'APINV',
8977: itemClassIn => l_item_class,
8978: itemIdIn => l_item_id,