1208:
1209: -- Calculate the receipt amount in the functional currency
1210: ln_acct_raw_cost := NULL;
1211: IF ln_default_exchange_rate IS NOT NULL AND ln_default_exchange_rate <> 0 THEN
1212: ln_acct_raw_cost := AP_WEB_UTILITIES_PKG.OIE_ROUND_CURRENCY(pa_rec.amount/ln_default_exchange_rate, pa_rec.base_currency_code);
1213: END IF;
1214:
1215: -----------------------------------------------------
1216: l_debug_info := 'Call PATC to get billable flag value';
1507: lv_procedure_billable_flag VARCHAR2(200);
1508: ln_vendor_id NUMBER;
1509: ln_default_exchange_rate NUMBER;
1510: ln_acct_raw_cost NUMBER;
1511: l_errors AP_WEB_UTILITIES_PKG.expError;
1512: l_receipts_errors AP_WEB_UTILITIES_PKG.receipt_error_stack;
1513: I INTEGER;
1514: BEGIN
1515: IF p_report_line_id is null or p_web_parameter_id is null THEN
1508: ln_vendor_id NUMBER;
1509: ln_default_exchange_rate NUMBER;
1510: ln_acct_raw_cost NUMBER;
1511: l_errors AP_WEB_UTILITIES_PKG.expError;
1512: l_receipts_errors AP_WEB_UTILITIES_PKG.receipt_error_stack;
1513: I INTEGER;
1514: BEGIN
1515: IF p_report_line_id is null or p_web_parameter_id is null THEN
1516: p_return_error_message := 'ERROR';
1517: RETURN;
1518: END IF;
1519:
1520: -- Bug: 7176464
1521: AP_WEB_UTILITIES_PKG.InitMessages(1, l_receipts_errors);
1522: IF (AP_WEB_CUS_ACCTG_PKG.CustomValidateProjectDist(
1523: p_report_line_id,
1524: p_web_parameter_id,
1525: p_project_id,
1530: p_return_error_message)) THEN
1531: -- Custom Validate Project Allocations
1532: IF (p_return_error_message is not null) THEN
1533:
1534: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1535: p_return_error_message,
1536: lv_msg_type,
1537: 'PATC',
1538: 1,
1535: p_return_error_message,
1536: lv_msg_type,
1537: 'PATC',
1538: 1,
1539: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1540: --p_msg_count := 1;
1541: --p_msg_data := p_return_error_message;
1542: --fnd_msg_pub.count_and_get(p_count => p_msg_count,p_data => p_msg_data);
1543: -- Bug 7497991 Commenting Return Statement to continue ValidationS
1554: RETURN;
1555: END IF;
1556: CLOSE pa_cur;
1557:
1558: --AP_WEB_UTILITIES_PKG.InitMessages(1, l_receipts_errors);
1559:
1560: IF (NOT AP_WEB_DB_AP_INT_PKG.GetVendorID(pa_rec.employee_id, ln_vendor_id)) THEN
1561: ln_vendor_id := NULL;
1562: END IF; /* GetVendorID */
1569:
1570: -- Calculate the receipt amount in the functional currency
1571: ln_acct_raw_cost := NULL;
1572: IF ln_default_exchange_rate IS NOT NULL AND ln_default_exchange_rate <> 0 THEN
1573: ln_acct_raw_cost := AP_WEB_UTILITIES_PKG.OIE_ROUND_CURRENCY(p_amount/ln_default_exchange_rate, pa_rec.base_currency_code);
1574: END IF;
1575:
1576:
1577: AP_WEB_PROJECT_PKG.ValidatePATransaction(p_project_id => p_project_id,
1615: p_msg_data => p_return_error_message,
1616: p_billable_flag => lv_procedure_billable_flag);
1617:
1618: if (p_return_error_message IS NOT NULL AND lv_msg_type = AP_WEB_DFLEX_PKG.C_CustValidResMsgTypeError) then
1619: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1620: p_return_error_message,
1621: lv_msg_type,
1622: 'PATC',
1623: 1,
1620: p_return_error_message,
1621: lv_msg_type,
1622: 'PATC',
1623: 1,
1624: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1625: else
1626: -- Bug: 6936055, GMS Integration, Award Validation
1627: if (GMS_OIE_INT_PKG.IsGrantsEnabled() and p_award_id is not null and
1628: not GMS_OIE_INT_PKG.DoGrantsValidation(p_project_id => p_project_id,
1632: p_expenditure_type => pa_rec.new_expenditure_type,
1633: p_expenditure_item_date => pa_rec.start_expense_date,
1634: p_calling_module => 'SelfService',
1635: p_err_msg => p_return_error_message)) then
1636: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1637: p_return_error_message,
1638: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1639: 'GMS',
1640: 1,
1634: p_calling_module => 'SelfService',
1635: p_err_msg => p_return_error_message)) then
1636: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1637: p_return_error_message,
1638: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1639: 'GMS',
1640: 1,
1641: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1642: else
1637: p_return_error_message,
1638: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1639: 'GMS',
1640: 1,
1641: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1642: else
1643: p_return_error_message := null;
1644: lv_msg_type := null;
1645: end if;
1686: p_msg_data => p_return_error_message,
1687: p_billable_flag => lv_procedure_billable_flag);
1688:
1689: if (p_return_error_message IS NOT NULL AND lv_msg_type = AP_WEB_DFLEX_PKG.C_CustValidResMsgTypeError) then
1690: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1691: p_return_error_message,
1692: lv_msg_type,
1693: 'PATC',
1694: 1,
1691: p_return_error_message,
1692: lv_msg_type,
1693: 'PATC',
1694: 1,
1695: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1696: else
1697: -- Bug: 6936055, GMS Integration, Award Validation
1698: if (GMS_OIE_INT_PKG.IsGrantsEnabled() and p_award_id is not null and
1699: not GMS_OIE_INT_PKG.DoGrantsValidation(p_project_id => p_project_id,
1703: p_expenditure_type => pa_rec.new_expenditure_type,
1704: p_expenditure_item_date => pa_rec.end_expense_date,
1705: p_calling_module => 'SelfService',
1706: p_err_msg => p_return_error_message)) then
1707: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1708: p_return_error_message,
1709: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1710: 'GMS',
1711: 1,
1705: p_calling_module => 'SelfService',
1706: p_err_msg => p_return_error_message)) then
1707: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
1708: p_return_error_message,
1709: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1710: 'GMS',
1711: 1,
1712: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1713: else
1708: p_return_error_message,
1709: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1710: 'GMS',
1711: 1,
1712: AP_WEB_UTILITIES_PKG.C_PATCMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1713: else
1714: p_return_error_message := null;
1715: lv_msg_type := null;
1716: end if;