170: --------------------------------------------------------------------------------
171: BEGIN
172: SELECT org_id
173: INTO p_org_id
174: FROM ap_expense_report_headers_all
175: WHERE report_header_id = p_header_id;
176:
177: return TRUE;
178: EXCEPTION
1659: ------------------------------------------------------------------------
1660: FUNCTION GetERInvoiceNumber(p_report_header_id IN NUMBER)
1661: RETURN VARCHAR2 IS
1662:
1663: l_invoice_num AP_EXPENSE_REPORT_HEADERS_ALL.INVOICE_NUM%TYPE;
1664:
1665: BEGIN
1666: SELECT invoice_num
1667: INTO l_invoice_num
1664:
1665: BEGIN
1666: SELECT invoice_num
1667: INTO l_invoice_num
1668: FROM ap_expense_report_headers_all
1669: WHERE report_header_id = p_report_header_id;
1670:
1671: return l_invoice_num;
1672: EXCEPTION
1681: -- 03/22/2005 - Kristian Widjaja
1682: ------------------------------------------------------------------------
1683: FUNCTION GetERWorkflowApprovedFlag(p_report_header_id IN NUMBER)
1684: RETURN VARCHAR2 IS
1685: l_workflow_approved_flag AP_EXPENSE_REPORT_HEADERS_ALL.WORKFLOW_APPROVED_FLAG%TYPE;
1686:
1687: BEGIN
1688: SELECT workflow_approved_flag
1689: INTO l_workflow_approved_flag
1686:
1687: BEGIN
1688: SELECT workflow_approved_flag
1689: INTO l_workflow_approved_flag
1690: FROM ap_expense_report_headers_all
1691: WHERE report_header_id = p_report_header_id;
1692:
1693: return l_workflow_approved_flag;
1694: EXCEPTION
1703:
1704: BEGIN
1705: SELECT to_char(last_update_date, 'DD-MON-RRRR HH:MI:SS', 'NLS_DATE_LANGUAGE = ENGLISH')
1706: INTO l_last_update_date
1707: FROM ap_expense_report_headers_all
1708: WHERE report_header_id = p_report_header_id;
1709:
1710: return l_last_update_date;
1711: EXCEPTION