-- approval_periodic2_2.sql   generate 'Requisitions Awaiting Your Approval' email reports
--                            Include all dates for Unapproved Records
--**Use this information and these scripts at your own risk. As a condition of using these scripts and information from this site, you agree to hold harmless both the University of Arkansas Cooperative Extension Service and Bruce Knox for any problems that they may cause or other situations that may arise from their use, and that neither the Extension Service nor I will be held liable for those consequences. The scripts and information are provided "as is" without warranty, implied or otherwise. Limitation of liability will be the amount paid to the University of Arkansas specifically for this information. (It was free:) 

-- Extract to approval_wk Table the Accounting Summary or type '9' records for the Detail Line of approval_periodic2.sql

SET ECHO OFF

SET SHOWMODE OFF
SET VERIFY OFF

-- change log
-- 12/05/01 bknox created
-- 01/14/03 bknox added Accounting information using UNION, corrected sort order for Item #s, removed extra blank lines.
-- 01/21/03 bknox removed FTVFSPD_PRD_STATUS_IND = 'O' from Accounting Information selection criteria
-- 02/05/03 bknox changed from FOBAINP_ACTIVITY_DATE to FOBUAPP_ACTIVITY_DATE to select yesterdays transactions (to eliminate orphaned transactions)
-- 02/13/03 bknox added check for Approval Table to make possible periodic running during a day
-- 02/15/03 bknox created all dates version from approval_periodic.sql
-- 05/28/03 bknox split code to eliminate out of space errors: ORA-01652: unable to extend temp segment by 150 in tablespace TEMP
-- 07/31/03 bknox corrected ((TRUNC(SYSDATE) BETWEEN FTVFSPD_PRD_START_DATE AND FTVFSPD_PRD_END_DATE) for End of Month Error
-- 11/03/03 bknox corrected Fund, Orgn, FORAQUS EFF_DATE Logic

ALTER SESSION SET NLS_DATE_FORMAT = 'DD-MON-YYYY';

SET SCAN ON
SET TERMOUT OFF
SET PAGESIZE 0
SET LINESIZE 512
SET FEEDBACK OFF
SET TRIMSPOOL ON
SET HEADING OFF
SET FEEDBACK OFF
SET TIMING OFF

-- SET ECHO OFF     Suppress Display of commands
-- SET FEEDBACK OFF Suppress Display of record counts
-- SET VERIFY   ON  Show each line of the file before and after substitution
-- SET SHOWMODE OFF Suppress Display of old and new setting of SQL*Plus system variables
-- SET LINESIZE n   Set line length
-- SET PAGESIZE n   Set lines per page
-- SET TRIMSPOOL ON Trim trailing spaces from end of SPOOLed record
-- SET TERMOUT  OFF Suppress Display of output

CLEAR COLUMNS
CLEAR BREAKS
CLEAR COMPUTES

--DEBUG
-- SET ECHO ON
-- SET SHOWMODE ON
-- SET FEEDBACK ON
--DEBUG

-- use current date to get asofdate
COLUMN asofdate NOPRINT NEW_VALUE asofdate
SELECT TO_CHAR(SYSDATE, 'MM/DD/YYYY') asofdate FROM DUAL;

-- Time and Date

COLUMN today  NOPRINT NEW_VALUE datevar FORMAT A18 TRUNC
COLUMN time   NOPRINT NEW_VALUE timevar FORMAT A11 TRUNC
SELECT TO_CHAR(SYSDATE,'fmMonth DD, yyyy') today,
       TO_CHAR(SYSDATE,'HH:MI:SS am') time FROM DUAL;

COLUMN asofdatealpha NOPRINT NEW_VALUE asofdatealphavar FORMAT A18 TRUNC
SELECT TO_CHAR(TO_DATE('&&asofdate', 'MM/DD/YYYY'), 'fmMonth DD, yyyy') asofdatealpha FROM DUAL;

COLUMN coa    NOPRINT NEW_VALUE coavar
SELECT 'Z' coa FROM DUAL;

COLUMN Address_String NEW_VALUE Address_String FORMAT A512
COLUMN Detail_String  NEW_VALUE Detail_String  FORMAT A512
COLUMN Ending_String  NEW_VALUE Ending_String 

COLUMN Sort_Order NOPRINT

SET NUMWIDTH 10

BREAK ON Address_String NODUPLICATES

--     Subject is the Subject Section of the email header
DEFINE Subject = 'Requisitions Awaiting Your Approval'

--     Title is the Report Title for the email message "report"
DEFINE Title_String = 'The following requisitions are awaiting your approval:'
--     Heading is the Report Column Headings for the email message "report"
-- DEFINE Heading_String = 'Requisition # Requested by'
DEFINE Ending_String = 'Please login to Banner WebForms at http://webforms.uaex.edu/ and use Form FOAUAPP to approve these documents.'

!echo "approval_periodic2_2 beginning"
!echo "'approval_periodic2_2 Requisitions Awaiting Your Approval' email reports" &&datevar &&timevar

-- Replace the following Sub-Select with your code, Report_pidm and Detail_String are Required

INSERT INTO APPROVAL_WK
          ( APPROVAL_WK_REPORT_PIDM,
            APPROVAL_WK_SORT_ORDER,
            APPROVAL_WK_DETAIL_STRING
           )
SELECT  GOBEACC_PIDM Report_pidm,
         FOBAINP_ACTIVITY_DATE||FPBREQH_CODE||'9'||FPRREQA_SEQ_NUM Sort_Order,  -- Approver_UserID||Requestor
         ' '||CHR(09)||
         'Accounting Fund-Orgn'||FPRREQA_SEQ_NUM||' '|| FPBREQH_CODE||' Charged to: '||CHR(09)||'Fund '||FPRREQA_FUND_CODE||' '||FTVFUND_TITLE||CHR(09)||'Orgn '||FPRREQA_ORGN_CODE||' '||FTVORGN_TITLE||CHR(09)||  
'Amount:'||' \'||LTRIM(TO_CHAR(FPRREQA_AMT_plus_TAX_AMT,'$999,999,999.99')) Detail_String
FROM
(SELECT  
-- Created from TABLE
-- FOBAINP: Approvals in Process Table
-- FOBUAPP: Unapproved Document Table 
-- FORAQUS: Approval Queue Definition Table
  FOBAINP_DOC_NUM   FOBAINP_DOC_NUM,  -- Document or Requisition Number
  FOBAINP_DOC_TYPE  FOBAINP_DOC_TYPE,
  TRUNC(FOBAINP_ACTIVITY_DATE)         FOBAINP_ACTIVITY_DATE,
  FOBAINP_USER_ID,
  FOBAINP_QUEUE_ID  FOBAINP_QUEUE_ID, -- Approval_Queue
  FOBAINP_LEVEL     FOBAINP_LEVEL,    -- Approver_Level
  FOBAINP_CHG_SEQ_NUM       FOBAINP_CHG_SEQ_NUM,
  FOBAINP_SUBMISSION_NUM    FOBAINP_SUBMISSION_NUM,
  FOBAINP_APPROVAL_SEQUENCE FOBAINP_APPROVAL_SEQUENCE,
  FORAQUS_USER_ID_APPR      FORAQUS_USER_ID_APPR
   FROM FOBAINP, FOBUAPP, FORAQUS
WHERE fobainp_doc_num LIKE 'R%'
  AND fobainp_doc_num = fobuapp_doc_code
  AND fobainp_doc_type = fobuapp_seq_num
  AND ((fobainp_chg_seq_num = fobuapp_chg_seq_num) OR (fobainp_chg_seq_num IS NULL AND fobuapp_chg_seq_num IS NULL))
  AND ((fobainp_submission_num = fobuapp_submission_number) OR (fobainp_submission_num IS NULL AND fobuapp_submission_number IS NULL))
  AND fobainp_approval_sequence = 
(
SELECT MIN(x.fobainp_approval_sequence)
  FROM fobainp x
 WHERE x.fobainp_doc_num = fobuapp_doc_code
   AND x.fobainp_doc_num LIKE 'R%'
   AND x.fobainp_doc_type = fobuapp_seq_num 
   AND ((x.fobainp_chg_seq_num = fobuapp_chg_seq_num) OR (x.fobainp_chg_seq_num IS NULL AND fobuapp_chg_seq_num IS NULL)) 
   AND ((x.fobainp_submission_num = fobuapp_submission_number) OR (x.fobainp_submission_num IS NULL AND fobuapp_submission_number IS NULL))
)
   AND  FORAQUS_EFF_DATE  <= SYSDATE
   AND (FORAQUS_NCHG_DATE  > SYSDATE OR FORAQUS_NCHG_DATE IS NULL)
   AND (FORAQUS_TERM_DATE  > SYSDATE OR FORAQUS_TERM_DATE IS NULL)
   AND foraqus_queue_id    = fobainp_queue_id
   AND foraqus_queue_level = fobainp_level
),
GOBEACC,FPRREQD,
(
SELECT
  FPRREQA_REQH_CODE  FPRREQA_REQH_CODE,
  FPRREQA_SEQ_NUM    FPRREQA_SEQ_NUM,
  FPRREQA_USER_ID    FPRREQA_USER_ID,
  SUM(FPRREQA_AMT+FPRREQA_TAX_AMT) FPRREQA_AMT_plus_TAX_AMT,
  FPRREQA_FUND_CODE FPRREQA_FUND_CODE,
  FTVFUND_TITLE     FTVFUND_TITLE,
  FPRREQA_ORGN_CODE FPRREQA_ORGN_CODE,
  FTVORGN_TITLE     FTVORGN_TITLE
  FROM FPRREQA, FTVFSPD,
(SELECT
  FTVFUND_FUND_CODE FTVFUND_FUND_CODE,
  FTVFUND_TITLE     FTVFUND_TITLE
  FROM FTVFUND
 WHERE  FTVFUND_EFF_DATE  <= SYSDATE
   AND (FTVFUND_NCHG_DATE  > SYSDATE OR FTVFUND_NCHG_DATE IS NULL)
   AND (FTVFUND_TERM_DATE  > SYSDATE OR FTVFUND_TERM_DATE IS NULL)
),
(SELECT
  FTVORGN_ORGN_CODE FTVORGN_ORGN_CODE,
  FTVORGN_TITLE     FTVORGN_TITLE
  FROM FTVORGN
 WHERE FTVORGN_EFF_DATE <= SYSDATE
   AND (FTVORGN_NCHG_DATE  > SYSDATE OR FTVORGN_NCHG_DATE IS NULL)
   AND (FTVORGN_TERM_DATE  > SYSDATE OR FTVORGN_TERM_DATE IS NULL)
   AND FTVORGN_STATUS_IND = 'A'
)
 WHERE FPRREQA_COAS_CODE = FTVFSPD_COAS_CODE
   AND FPRREQA_PERIOD    = FTVFSPD_FSPD_CODE
   AND FPRREQA_FSYR_CODE = FTVFSPD_FSYR_CODE
   AND ((TRUNC(SYSDATE) BETWEEN FTVFSPD_PRD_START_DATE AND FTVFSPD_PRD_END_DATE) OR
        (LAST_DAY(SYSDATE)-32 BETWEEN FTVFSPD_PRD_START_DATE AND FTVFSPD_PRD_END_DATE))
   AND FPRREQA_REQH_CODE LIKE 'R%'
   AND FPRREQA_FUND_CODE = FTVFUND_FUND_CODE
   AND FPRREQA_ORGN_CODE = FTVORGN_ORGN_CODE
GROUP BY
  FPRREQA_REQH_CODE,
  FPRREQA_SEQ_NUM,    
  FPRREQA_USER_ID,
  FPRREQA_FUND_CODE, FTVFUND_TITLE,
  FPRREQA_ORGN_CODE, FTVORGN_TITLE
),
(SELECT   -- Created from TABLE FPBREQH  Request Header Table
  FPBREQH_CODE                         FPBREQH_CODE, -- Document or Requisition
  TRUNC(FPBREQH_ACTIVITY_DATE)         FPBREQH_ACTIVITY_DATE,
  TRUNC(FPBREQH_REQH_DATE)             FPBREQH_REQH_DATE,
  TRUNC(FPBREQH_TRANS_DATE)            FPBREQH_TRANS_DATE,
  FPBREQH_NAME                         FPBREQH_NAME,  -- Requestor
  TRUNC(FPBREQH_REQD_DATE)             FPBREQH_REQD_DATE,
  TRUNC(FPBREQH_CANCEL_DATE)           FPBREQH_CANCEL_DATE,
  TRUNC(FPBREQH_POST_DATE)             FPBREQH_POST_DATE,
  FPBREQH_ATTENTION_TO                 FPBREQH_ATTENTION_TO,
  TRUNC(FPBREQH_REQ_PRINT_DATE)        FPBREQH_REQ_PRINT_DATE,
  TRUNC(FPBREQH_CLOSED_DATE)           FPBREQH_CLOSED_DATE
  FROM  FPBREQH
),
(SELECT SPRIDEN_PIDM VENDOR_PIDM, DECODE(SPRIDEN_ENTITY_IND, 'C',
       SPRIDEN_LAST_NAME, 'P', DECODE(SPRIDEN_MI, '', (
       SPRIDEN_LAST_NAME || ', ' || SPRIDEN_FIRST_NAME), (
       SPRIDEN_LAST_NAME || ', ' || SPRIDEN_FIRST_NAME ||
       ' ' || SUBSTR(SPRIDEN_MI, 1, 1) || '.'))) VENDOR_NAME
  FROM SPRIDEN
 WHERE SPRIDEN_CHANGE_IND IS NULL
   AND SPRIDEN_PIDM IN 
(SELECT FPRREQD_VEND_PIDM FROM FPRREQD WHERE FPRREQD_REQH_CODE LIKE 'R%')
)
WHERE GOBEACC_USERNAME    = FORAQUS_USER_ID_APPR
  AND FOBAINP_DOC_NUM     = FPBREQH_CODE
  AND FPRREQD_REQH_CODE   = FPBREQH_CODE
  AND FPRREQD_REQH_CODE   = FPRREQA_REQH_CODE
  AND FPRREQD_REQH_CODE LIKE 'R%'
  AND FPRREQD_VEND_PIDM   = VENDOR_PIDM (+)
  AND FOBAINP_DOC_NUM     = FPRREQA_REQH_CODE
  AND FOBAINP_DOC_NUM IN (SELECT APPROVAL_DOC_CODE FROM APPROVAL WHERE APPROVAL_SENT = 'N')
GROUP BY GOBEACC_PIDM, 
         FOBAINP_ACTIVITY_DATE||FPBREQH_CODE||'9'||FPRREQA_SEQ_NUM,
         ' '||CHR(09)||
         'Accounting Fund-Orgn'||FPRREQA_SEQ_NUM||' '|| FPBREQH_CODE||' Charged to: '||CHR(09)||'Fund '||FPRREQA_FUND_CODE||' '||FTVFUND_TITLE||CHR(09)||'Orgn '||FPRREQA_ORGN_CODE||' '||FTVORGN_TITLE||CHR(09)||  
'Amount:'||' \'||LTRIM(TO_CHAR(FPRREQA_AMT_plus_TAX_AMT,'$999,999,999.99'))
;

CLEAR COLUMNS
CLEAR BREAK

SET HEADING ON

!echo "approval_periodic2_2 complete"

ALTER SESSION SET NLS_DATE_FORMAT = 'DD-MON-YY';