-- approval_periodic2_1.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 Requisition Detail or type '1' 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
-- 05/28/03 bknox split code to eliminate out of space errors: ORA-01652: unable to extend temp segment by 150 in tablespace TEMP

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
--COLUMN Sort_Date  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_1 beginning"
!echo "'approval_periodic2_1 Requisitions Awaiting Your Approval' email reports" &&datevar &&timevar

-- Requisition Line Item
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||'1'||TO_CHAR(FPRREQD_ITEM,'99909') Sort_Order,  -- Approver_UserID||Requestor
         ' '||CHR(09)||TO_CHAR(FOBAINP_ACTIVITY_DATE , 'MM/DD/YYYY')||' '||
         'Requisition: '|| FPBREQH_CODE||' Item: '||TO_CHAR(FPRREQD_ITEM,'99909')||' Requested by: '||FPBREQH_NAME||' For: '||FPBREQH_ATTENTION_TO||CHR(09)||'Description: '||FPRREQD_COMM_DESC||CHR(09)||
         'Vendor: '||NVL(VENDOR_NAME,NULL)||FPRREQD_RECOMM_VEND_NAME||CHR(09)||
         'QTY: '||FPRREQD_QTY||'  Unit Price:'||' \'||LTRIM(TO_CHAR(FPRREQD_UNIT_PRICE,'$999,999,999.9999'))||
         DECODE(FPRREQD_TAX_AMT,0,NULL,'  Sales Tax:' ||' \'||LTRIM(TO_CHAR(FPRREQD_TAX_AMT,'$999,999,999.99')))||
         DECODE(FPRREQD_ADDL_CHRG_AMT,0,NULL,'  Additional Amt:'||' \'||LTRIM(TO_CHAR(FPRREQD_ADDL_CHRG_AMT,'$999,999,999.99')))||
         DECODE(ROUND(FPRREQD_UNIT_PRICE,2),ROUND(FPRREQD_QTY*FPRREQD_UNIT_PRICE ,2)+ FPRREQD_TAX_AMT + FPRREQD_ADDL_CHRG_AMT,NULL,'  Total:'||' \'||LTRIM(TO_CHAR(ROUND(FPRREQD_QTY*FPRREQD_UNIT_PRICE ,2)+ FPRREQD_TAX_AMT + FPRREQD_ADDL_CHRG_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 TRUNC(FORAQUS_EFF_DATE) <= SYSDATE
   AND      (FORAQUS_NCHG_DATE  > TRUNC(SYSDATE) OR FORAQUS_NCHG_DATE IS NULL)
   AND      (FORAQUS_TERM_DATE  > TRUNC(SYSDATE) OR FORAQUS_TERM_DATE IS NULL)
   AND foraqus_queue_id    = fobainp_queue_id
   AND foraqus_queue_level = fobainp_level
),
(SELECT  DISTINCT foraqus_user_id_appr TODAYS_user_id_appr
   FROM FOBAINP, FOBUAPP, FORAQUS
WHERE fobainp_doc_num LIKE 'R%'
--  AND TRUNC(FOBUAPP_ACTIVITY_DATE) = TRUNC(SYSDATE-1)
--  AND TRUNC(FOBUAPP_ACTIVITY_DATE) = TRUNC(SYSDATE)
  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 TRUNC(FOBUAPP_ACTIVITY_DATE) = TRUNC(SYSDATE-1)
--   AND TRUNC(FOBUAPP_ACTIVITY_DATE) = TRUNC(SYSDATE)
   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 TRUNC(FORAQUS_EFF_DATE) <= SYSDATE
   AND      (FORAQUS_NCHG_DATE  > TRUNC(SYSDATE) OR FORAQUS_NCHG_DATE IS NULL)
   AND      (FORAQUS_TERM_DATE  > TRUNC(SYSDATE) OR FORAQUS_TERM_DATE IS NULL)
   AND foraqus_queue_id    = fobainp_queue_id
   AND foraqus_queue_level = fobainp_level
),
GOBEACC,FPRREQD,
(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 TODAYS_user_id_appr = FORAQUS_USER_ID_APPR
  AND FPRREQD_VEND_PIDM = VENDOR_PIDM (+)
  AND FOBAINP_DOC_NUM IN (SELECT APPROVAL_DOC_CODE FROM APPROVAL WHERE APPROVAL_SENT = 'N')
;

CLEAR COLUMNS
CLEAR BREAK

SET HEADING ON

!echo "approval_periodic2_1 complete"

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