[Home] [Help]
167: l_bpay_personal_cc_only boolean := false;
168: l_shortpaid_report boolean := false;
169: audit_code VARCHAR2(30);
170: l_old_audit_code ap_expense_report_headers_all.audit_code%type := null;
171: l_old_audit_reason_code ap_aud_audit_reasons.audit_reason_code%type := null;
172: BEGIN
173:
174: IF p_report_header_id is null THEN
175: return null;
270: from
271: (
272: select audit_code, audit_reason_code
273: from ap_expense_report_headers_all aerh,
274: ap_aud_audit_reasons aud
275: where aerh.report_header_id = p_report_header_id
276: and aerh.report_header_id = aud.report_header_id
277: and aud.audit_reason_code = 'RANDOM'
278: )
1351: --PRAGMA AUTONOMOUS_TRANSACTION;
1352:
1353: BEGIN
1354: IF (p_report_header_id IS NOT NULL AND p_audit_reason_code IS NOT NULL) THEN
1355: INSERT INTO AP_AUD_AUDIT_REASONS(
1356: AUDIT_REASON_ID,
1357: REPORT_HEADER_ID,
1358: AUDIT_REASON_CODE,
1359: CREATION_DATE,
1361: LAST_UPDATE_LOGIN,
1362: LAST_UPDATE_DATE,
1363: LAST_UPDATED_BY)
1364: VALUES (
1365: AP_AUD_AUDIT_REASONS_S.nextval,
1366: p_report_header_id,
1367: p_audit_reason_code,
1368: SYSDATE,
1369: nvl(fnd_global.user_id, -1),
1379: | PRIVATE PROCEDURE update_audit_reason
1380: |
1381: | DESCRIPTION
1382: | This procedure updates the given audit reason code entry
1383: | in AP_AUD_AUDIT_REASONS table for an expense report .
1384: |
1385: | Changes to this procedure may require changes to insert_audit_reason
1386: |
1387: | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
1405:
1406: BEGIN
1407:
1408: IF (p_report_header_id IS NOT NULL AND p_audit_reason_code IS NOT NULL) THEN
1409: UPDATE AP_AUD_AUDIT_REASONS
1410: SET LAST_UPDATE_LOGIN = fnd_global.conc_login_id,
1411: LAST_UPDATE_DATE = SYSDATE,
1412: LAST_UPDATED_BY = nvl(fnd_global.user_id, -1)
1413: WHERE report_header_id = p_report_header_id