1 PACKAGE BODY AP_WEB_AUDIT_HOOK AS
2 /* $Header: apwaudhb.pls 115.2 2002/11/14 22:59:17 kwidjaja noship $ */
3 /*========================================================================
4 | PUBLIC PROCEDURE audit_expense_report
5 |
6 | DESCRIPTION
7 | This package contains customization hook used to extend / replace default
8 | logic for selecting expense reports for audit.
9 |
10 | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
11 | Called from BC4J.
12 |
13 | CALLS PROCEDURES/FUNCTIONS (local to this package body)
14 |
15 | RETURNS
16 |
17 | PARAMETERS
18 | p_expense_report_id IN Expense report header Identifier
19 | p_audit_reason_code OUT NOCOPY Audit reason code, when report is
20 | audited this code will be stored
21 | in table AP_AUD_AUDIT_REASONS.
22 | If Null is passed, no row will be created.
23 | p_audit_report OUT NOCOPY TRUE if report needs to be audited, FALSE
24 | otherwise. Null is considered as FALSE.
25 | p_override_default_processing OUT NOCOPY TRUE if customization overrides default audit
26 | processing, FALSE otherwise.
27 | Null is considered as FALSE.
28 |
29 | MODIFICATION HISTORY
30 | Date Author Description of Changes
31 | 25-May-2002 J Rautiainen Created
32 |
33 *=======================================================================*/
34 PROCEDURE audit_expense_report(p_expense_report_id IN NUMBER,
35 p_audit_reason_code OUT NOCOPY VARCHAR2,
36 p_audit_report OUT NOCOPY BOOLEAN,
37 p_override_default_processing OUT NOCOPY BOOLEAN) IS
38
39 BEGIN
40 p_override_default_processing := FALSE;
41 p_audit_report := FALSE;
42 p_audit_reason_code := 'CUSTOM';
43
44 END audit_expense_report;
45
46 END AP_WEB_AUDIT_HOOK;