AP08001 CFS90 DS ACH EFTPaymentProcessing 20120523

Document Sample
AP08001 CFS90 DS ACH EFTPaymentProcessing 20120523 Powered By Docstoc
					                                                      CFS Modification Approval and Design Request
                                                                                    California State University
                                                                                                 CMS Baseline

General Information
 Item                                           Enter Information Requested
 Service Request Number                         HD 215099
 Modification Number                            AP08001
 Modification Name                              ACH&EFT Payment Processing
 Modification Request Status                    Approved
 Request Initiated By (campus, team, or CMS )   CFS Design Team
 Primary Contact (name)                         Jennyfer Nguyen
 Primary Contact (email)                        jnguyen@calstate.edu
 Filename                                       AP08001_CFS90-DS_ACH_EFTPaymentProcessing_20120523.docx



Modification Request Applies To: (Check all that apply)

   Finance 9.0                                        Common Financial System 9.0

   Human Resources 8.9                                Human Resources 9.0

   Student Administration 8.9                         Student Administration 9.0



        Important
Modifications must accommodate multiple campus Business Units, SetIDs and Ledgers. The prompt tables used
in run control pages and setup tables must use the PeopleSoft delivered row-level application security views. The
use of temp tables must support multiple occurrences of the same report/process, so that one campus’ process
will not adversely affect another. Hard coding will be allowed when necessary to help establish common business
practices.

About this Document
The Modification Approval and Design Request document is a point-in-time document that provides the approval
history, business requirements, design solution, and object list for modifications made to the CMS Baseline
product.

Once the modification is released and posted to the CMS website, this document becomes a historical record of
the modification as initially released. Minor updates (i.e. editing errors or minor corrections) are updated and
republished in this document, but all functional or object changes are documented and posted as Modification
Update Requests.

Section One: Revision History provides a table listing all Modification Update Requests associated with this
document (if applicable), as well as a second table listing all minor document edits. Modification Update
Requests will be posted with the original modification on the CMS website. Please refer to the documentation
web page for each application.




Last Revised: 05/23/12                                                                                 Page 1 of 36
ACH&EFT Payment Processing                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                         Accounts Payable



Related Documents
The documents listed below are supporting materials such as test plans, test scripts, business process guides,
etc. associated with this modification. Depending on the complexity of the modification, support materials will
vary. Support materials are also posted on the CMS website, on the documentation web page for each
application.

   CFS90 User Guide AP ACH&EFT Payment Processing




Last Revised: 05/23/12                                                                                    Page 2 of 36
ACH&EFT Payment Processing                                                                                     CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                                              Accounts Payable




Table of Contents

Section One: Revision History ................................................................................................................................... 4

Section Two: CMS Central Modification Governance Review [CMS Use Only] ..................................................... 5

Section Three: Business Justification for Modification Request ............................................................................... 6

1.0      Overview ........................................................................................................................................................... 6

2.0      Department/Process Impact ............................................................................................................................. 6

3.0      Cross Product Analysis ..................................................................................................................................... 7

4.0      Alternatives and Recommendation ................................................................................................................... 7

Section Four: Design Specification ............................................................................................................................ 8

1.0      Conceptual Model (Process Flow) .................................................................................................................... 8

2.0      Requirements and Design Details .................................................................................................................... 9
         2.1      Regulatory Requirements/Business Rules ........................................................................................... 11
         2.2      Security Requirements .......................................................................................................................... 11
         2.3      Process Frequency ............................................................................................................................... 11
         2.4      Input / Output ........................................................................................................................................ 11

Section Five: Business Test Conditions .................................................................................................................. 12

Section Six: Object Changes ................................................................................................................................... 14

Appendix A: Report Sample and Specification Details ............................................................................................ 21

Appendix B: PeopleCode ........................................................................................................................................ 22

Appendix C: Index ................................................................................................................................................... 34

Appendix D: SQL ..................................................................................................................................................... 35




Last Revised: 05/23/12                                                                                                                                        Page 3 of 36
ACH&EFT Payment Processing                                                     CFS Modification Approval and Design Request
AP08001-CFS90                                                                                              Accounts Payable




Section One: Revision History

Modification Update Requests

Please list Service Request Number (SR#), Date, and Filename of any Update Requests associated with this
modification.
 SR#            Date         Filename of Update Request
 Click here     Click here   Click here to enter Filename of Update Request.
 to enter       to enter
 SR#            Date.
 Click here     Click here   Click here to enter Filename of Update Request.
 to enter       to enter
 SR#            Date.



Document Edits

Please provide a high-level description of edits made to this document to alert users to changes made since its
initial release. Please note: Minor updates (i.e., editing errors or minor corrections) are updated and republished
in this document, but all functional or object changes are documented and posted as Modification Update
Requests.
 Date         By             Description of Document Edits                                              Section Edited
 03/15/10     CFS Team       Release of new document                                                    All
 06/17/10     D Nguyen       Update document to reflect technical changes to improve performance        Section 6
 09/23/10     D Nguyen       Update document to reflect technical changes to only send email to EFT     Section 6
 04/07/11     J Nguyen       Update changes on the Wells SAFE Transmission new requirements             Section 3 – 1.0
                                                                                                        Section 4 – 2.0
                                                                                                        Section 5
                                                                                                        Appendix A – PS
                                                                                                        Mapping
                                                                                                        Spreadsheet
 04/07/11     L Reyes        Update Technical Specs                                                     Section 6
 04/28/11     L Reyes        Update Technical Specs                                                     Section 6
 06/30/11     L Reyes        Update Technical Specs                                                     Section 6
 12/21/11     J Nguyen       Update changes on the Settlement Date new requirements                     Section 3 - 1.0
 12/21/11     L Reyes        Update Technical Specs                                                     Section 6
 01/25/12     J Pham         Update Technical Specs                                                     Section 6
 02/23/12     L Reyes        Update Technical Specs                                                     Section 6
 02/23/12     J Nguyen       Update changes to include electronic payments to Vendors and               Section 3, 4 & 5
                             Employees/Students
 05/23/12     J Nguyen       Add a new page CSU Elec Bank Info to specify vendor bank/account           Section 4 – 2.0
                             information for each AP Business Unit                                      Section 5
 05/23/12     L Reyes        Update Technical Specs                                                     Section 6




Last Revised: 05/23/12                                                                                         Page 4 of 36
ACH&EFT Payment Processing                                                  CFS Modification Approval and Design Request
AP08001-CFS90                                                                                           Accounts Payable




Section Two: CMS Central Modification Governance Review [CMS Use Only]
CMS Analyst / Author:             CFS Design Team and Jennyfer Nguyen
Oracle Analysis:                  N/A - CSU Requirement

 Category of Analysis                                  Estimates/ Impacts
 Preliminary Time Estimate for Original Modification   4 hours
 Final Time for Original Modification                  4 hours
 Estimated Maintenance Over 5 Years                    5 hours
 Impact on Upgrades                                    Minimal
 Impact on Data Warehouse                              Minimal

Review and Approval
 Area / Title            Name              Date        Action          Comments
 User Group              CFS Design Team   08/31/09    Reviewed        Recommended for Application Team review
 CMS Application         E Kist            03/04/10    Reviewed        Recommended for CMS Senior Director
 Team                                                                  review and approval
 Senior Director,        J Lum             03/11/10    Approved        For posting to CMS website
 CMS




Last Revised: 05/23/12                                                                                      Page 5 of 36
ACH&EFT Payment Processing                                                    CFS Modification Approval and Design Request
AP08001-CFS90                                                                                             Accounts Payable




Section Three: Business Justification for Modification Request

Please select the appropriate categories to indicate the business justification for this modification request.

Modification Governance Category: Productivity Enhancement

Modification Decision Criteria (Select ALL that apply)

   Impacts the ability to go live or is a result of collective bargaining, Trustee requirements, Executive direction, or
   State / Federal regulations

   Modification would result in a significant reduction in manual effort

   Modification would maintain a significant service level or add significant improvement in administrative
   productivity and / or service

   Without the modification, additional staff would be necessary to perform the business process



1.0       Overview
The implementation of the Revenue Management Program (RMP) has resulted in the CSU outsourcing some of
their Disbursement banking activities to Wells Fargo. As a result, campuses have been given the flexibility to
process disbursements multiple ways; for example, a check, a wire transfer, or using the ACH Payment
Processing.

This document is intended to address how campuses will implement ACH or EFT payment processing from the
PeopleSoft Accounts Payable System and generate a file that meets the Wells Fargo specifications.

The Wells Fargo bank is changing the SAFE Transmission platform to secure ‘valuable’ files transfer. As a result,
it has an impact on the ACH files transfer from ‘CFS’ campuses to Wells Fargo. The ‘existing’ digital certificates
assigned by Wells Fargo cannot be used. To access the Wells Fargo SAFE Transmission platform, each campus
will be receiving from Wells Fargo a Remote ID [RID], Batch ID [BID], Automated User ID and the Bank Inbound
File Location. To validate the connectivity with Wells Fargo, additional ‘security keys’ are also created in the CFS
production instances by the CMS DBA team. For more details on the new changes for Wells SAFE Transmission,
see the Requirements and Design Details section.

A request from Cash Management Operations department (CMO) has been made to change the way the
‘settlement date’ is being determined in the ACH files that are being generated from PeopleSoft Accounts Payable
Pay Cycles. Currently the ’settlement date is the same day as the ‘payment date’. This is not a standard practice.
It should be the ‘payment date’ plus 1 day. For more details on the new changes on the configuration, please
refer to the ACH Payment Processing User Guide.



2.0      Department/Process Impact
Campuses can process the ACH or EFT payment file at any time. This would be dependent on their current Pay
Cycle business process and schedule.




Last Revised: 05/23/12                                                                                         Page 6 of 36
ACH&EFT Payment Processing                                     CFS Modification Approval and Design Request
AP08001-CFS90                                                                              Accounts Payable



3.0      Cross Product Analysis
No impact on cross products.



4.0      Alternatives and Recommendation
1. Alternative: None
2. Recommendation: Implement ACH or EFT payment processing from the PeopleSoft Accounts Payable
   System that meets Wells Fargo specifications.




Last Revised: 05/23/12                                                                         Page 7 of 36
ACH&EFT Payment Processing                                                 CFS Modification Approval and Design Request
AP08001-CFS90                                                                                          Accounts Payable




Section Four: Design Specification


1.0      Conceptual Model (Process Flow)
This modification will not affect Oracle PeopleSoft delivered process flow functionality.

ACH/EFT Payment Process

Flowchart


                  1                      2                         3                        4

                Collect                Set up                   Enter                 Validate the
               pertinent            vendor and                 Voucher                banking info
               banking                add their                                       default from
             information              banking                                          CSU Elec
               from the             information                                        Bank Info
              Vendor                 and email                                         setup for
                                     address if                                        ACH/EFT
                                     applicable                                       Pmt Method




         5                     6                        7                       8                         9

   Approve                 Process the             ACH/EFT –               As needed –               Send payee
  Voucher for               ACH/EFT               Automatic file           Regenerate                   email
   payment                 payment via            transmission             the ACH file              notification
                            Accounts                 to Wells                to Wells                  for EFT
                           Payable Pay             Fargo Bank              Fargo Bank                 payments
                              Cycle




Steps:


1. Collect pertinent banking information from the Vendor.
2. Set up vendor - add their bank information, including assigning ACH bank, Electronic Funds Transfer (EFT) or
   Automated Clearing House [ACH] payment method and adding Email ID address in Vendor Information for
   EFT payment only.
3. Enter Voucher.
4. Approve Voucher for payment.
5. Process the ACH and/or EFT payment via Accounts Payable PayCycle.
6. Automatically transmit ACH and/or EFT payment file to Wells Fargo Bank.
7. Regenerate the ACH/EFT payment file to Wells Fargo Bank as needed.
8. Send payee email notification for EFT payments.


Last Revised: 05/23/12                                                                                        Page 8 of 36
ACH&EFT Payment Processing                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                         Accounts Payable




2.0       Requirements and Design Details
Create the following:

     Two file layouts for electronic payments: (1) ACH – Automated Clearing House – used for Vendors NOT
      Employee/Student payments. The payment file layout is WFCCD+ which includes an addenda 7 containing
      invoice information. (2) EFT – Electronic Funds Transfer – used for Employee/Student payments. The
      payment file layout is WFPPD.

     An ACH/EFT file layout that meets Wells Fargo’s specifications.

     A process that automatically transmits the ACH/EFT payment file to Wells Fargo.

     Create the ACH/EFT payment file as ‘DUP’ for duplicate from the ‘original’ file. The Payee’s Bank Account #
      & Remote id will be scrambled in the payment file.

     A process that allows the regeneration of the ACH/EFT payment file by the Pay Cycle & Sequence Number.

     Create an ACH & EFT Payment Advice.

     A process that emails payee disbursement on the EFT payments. No emails for ACH payments because
      vendors are receiving Addenda 7 from Wells Fargo.

     Create a new lookup table that has the ACH/EFT banking information for each AP Business Unit at the
      Payables Definition. The new lookup table will override the vendor banking information and provide the
      correct default for each voucher based on the AP Business Unit.

     Add logic to handle the banking default at the voucher level after running the Voucher Build [AP_VCHRBLD].

See Appendix A: Report Sample and Specification Details for details on Wells Fargo File Layouts and PeopleSoft
Mappings.

Menu Navigations:
     Accounts Payable > Payments > CSU ACH File Regeneration
     Accounts Payable > Payments > CSU Generate EFT Emails



Wells Fargo SAFE Transmission:

On the File Transmission Header page, create the following:
     SetID: Bank SetID [e.g. SMCMP]
     Bank: Bank Code [e.g. WELLS]; displays Bank Description [e.g. Wells Fargo Bank, N.A.]
     External Bank ID: Use Bank ID as entered on the Bank Information page
     Bank Account: Bank Account as entered on the External Accounts page [e.g. CMP]

The File Transmission tab, create the following:
     Payment Type: Provide a dropdown for Positive Payment, ACH Payment and ACH Payment Test. Create
      +/- sign to add or delete a row – see CSU_PYMNT_TYPE.


Last Revised: 05/23/12                                                                                    Page 9 of 36
ACH&EFT Payment Processing                                                    CFS Modification Approval and Design Request
AP08001-CFS90                                                                                             Accounts Payable



   Bank ID: Provided by Wells Fargo. It is used in the Positive Pay File in the File Header Record, “Bank ID”
    field – see CSU_BANK_ID_NBR. This field is not used in the ACH/EFT Payment File. If the Payment Type is
    for ‘POS’, this field will be used in the program logic. No further program logic will be added when the
    Payment Type is ‘ACH/EFT’.
   Remote ID [also called RID]: This is the 8 character value assigned by Wells Fargo Bank. This ID appears
    on the File Header Record, along with the Batch ID and is used internally by the bank. – see CSU_RID.
   Batch ID [also called BID]: Enter your BID as assigned by Wells Fargo. This ID appears on the File Header
    Record, along with the Remote ID and is used internally by the bank – see CSU_BID.
   Automated User ID: This is assigned by Wells Fargo Bank. It is required to make a connection to the bank
    – see CSU_AUTO_ID.
   Bank Inbound File Location: This is assigned by Wells Fargo Bank and is used as a location for files
    transmission – see CSU_FILE_INBOUND.
   Campus File Location: After creating and prior to being submitted to Wells Fargo Bank, this is a campus file
    location [CSU_FILE_INBOUND]. It is a required field. Assistance from the DBAs is required to setup the
    proper location prior creating the files.
    -    For CFS, the ‘rmp’ file folder format is: /CSU/<CFS database instance>/rmp/<campus setid>/
            e.g. /CSU/facfstst/rmp/smcmp/
    Note: CSU is uppercase and the rest are all lowercase.

   FTP Site: Enter the testing site or production site for file transmission provided by Wells Fargo.


The Date/Time Setup tab, create the following:


   Hours:
    -    In production, system generates ‘blank’ for zero after the page is configured and saved. This setting will
         send the files to Wells Fargo Bank once the ACH/EFT payment is processed.

    -    In non-production, the default setting is ’blank’ for zero – this setting will prevent the files send to Wells
         Fargo if testing is not occurred. Once you entered # of hours, the program uses the current date/time
         plus the number of hours entered and displays the expiration date. If the expiration date is expired, the
         files transmission will not send to the bank.

    -    In a scenario, you need 3 days testing with Wells Fargo, the # of hours setting would be:
         24 hrs. x 3 days = 72 hrs.

   Expiration Date/Time:
    -    In production, the current date/time displays after the page is configured and saved.
    -    In non-production, use the current date/time plus the number of hours entered in the ‘Hours’ fields after
         the page is configured and saved.

   View File: After running the pay cycle for ACH/EFT payment, users have the ability to view the ACH/EFT
    ‘test’ file in the non-production database. Users can see the flat file when the check box is ON. Due to
    security, this functionality will not available in FCFSPRD and FCFSPRE.
   Last Update User ID: User ID displays after the page is configured and saved.
   Last Update Date/Time: Current date/time displays after the page is configured and saved.



Last Revised: 05/23/12                                                                                        Page 10 of 36
ACH&EFT Payment Processing                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                         Accounts Payable




The program will first look for the File Transmission page which contains the default settings, expiration date and
database instance, if the file transmission is failed, an error/warning message will be generated in the .out file.
Further review and corrections are required by campus users. Once corrections are done, you can run the
‘regeneration’ process to resubmit the file to Wells Fargo Bank.


Menu Navigation: Banking > Bank Accounts > External Accounts > File Transmission


2.1       Regulatory Requirements/Business Rules
     See Attachment A for Wells Fargo ACH/EFT Implementation Guide for details on regulations.


2.2       Security Requirements
     Campus Security Administrator will provide appropriate staff to access the File Transmission page and
      processing the ACH/EFT payments.


2.3       Process Frequency
     Pay Cycle Processing.


2.4       Input / Output
Input
     Employee vendors with bank information
     General email addresses for EFT payments
     Vouchers with ACH/EFT Payment Method

Output
     ACH/EFT payment file generated and automatically transmitted to Wells Fargo Bank.
     Regeneration of the ACH/EFT payment file to Wells Fargo Bank.
     Email notification of EFT payment to the payee.




Last Revised: 05/23/12                                                                                   Page 11 of 36
ACH&EFT Payment Processing                                                  CFS Modification Approval and Design Request
AP08001-CFS90                                                                                           Accounts Payable




Section Five: Business Test Conditions
 Business Process        Sequence   Scenario Description                       Intent
 Setup CSU Elec Bank     1          For each AP Business Unit, setup           At the voucher creation process, the
 Info for each AP                   Vendor Payment Method for ACH and          vendor banking defaults populate every
 Business Unit                      EFT; enter Bank SetID, Bank Code,          voucher created for the vendor.
                                    Bank Account and Payment Method.
 EFT Payments            2          Create several vouchers to be included     Validate the banking information default
                                    in EFT pay cycle; use separate             from the CSU Elec Bank Info’ page
                                    payment; run the EFT payment               populated in every voucher created.
                                    process.
                                                                               All payments should be included in the
                                                                               FIN2025.
 ACH Payments            3          Create several vouchers to be included     Validate the banking information default
                                    in ACH pay cycle – include sales/use       from the CSU Elec Bank Info’ page
                                    tax, freight & discount; use separate      populated in every voucher created.
                                    payment; run the ACH payment
                                    process.                                   All payments should be included in the
                                                                               FIN2025.
 ACH & EFT Payments      4          Create several vouchers to be included     Validate the banking information default
 in the same pay cycle              in ACH and EFT in a same pay cycle;        from the CSU Elec Bank Info’ page
                                    use separate payment; run the ACH          populated in every voucher created.
                                    and EFT payment process.
                                                                               All payments should be included in the
                                                                               FIN2025.
 Zero Payments on the    5          Create a zero dollar on the Regular        All payments should be included in the
 Regular Voucher                    Voucher – select WELLS/CMP/CHK.            FIN2025.
                                    Create 2 vouchers - debit and credit       Validate the zero voucher is not in the
                                    amounts [debit more than credit]. Run      addenda record.
                                    an ACH pay cycle.
 Zero Payments on the    6          Create a zero dollar on the Adjustments    All payments should be included in the
 Adjustments Voucher                Voucher – select WELLS/CMP/CHK.            FIN2025.
                                    Create vouchers with debit more than       Validate the zero voucher is not in the
                                    credit amounts. Run an ACH pay cycle.      addenda record.
 Zero Payments on the    7          Create a zero dollar on the Adjustments    All payments should be included in
 Adjustments Voucher                Voucher – select WELLS/CMP/CHK.            FIN2025.
                                    Create several vouchers to be included     Validate the zero voucher is not
                                    in EFT pay cycle.                          included.
 Regular Vouchers and    8          Create a Reversal Voucher and several      All payments should be included in the
 Reversal Vouchers in               Regular Vouchers in the same ACH pay       FIN2025.
 the same pay cycle                 cycle.
 Express Payment         9          Create an Express Payment for ACH.         All payments should be included in the
                                                                               FIN2025.
 Express Payment         10         Create an Express Payment for EFT.         All payments should be included in the
                                                                               FIN2025.
 Payment Cancellations   11         Void/Stop several EFT payments and         Reissue payments should be included
                                    reissue. Run the EFT pay cycle. Make       in the FIN2025 except for void
                                    sure to include EFT payments that were     payments.
                                    created prior to MP 4.2.
 Payment Cancellations   12         Void/Stop several ACH payments and         Reissue payments should be included
                                    reissue. Run the ACH pay cycle.            in FIN2025 except for void payments.



Last Revised: 05/23/12                                                                                      Page 12 of 36
ACH&EFT Payment Processing                                                    CFS Modification Approval and Design Request
AP08001-CFS90                                                                                             Accounts Payable



 Business Process        Sequence   Scenario Description                         Intent
 Payment Cancellations   13         Void/Stop several EFT payments and           Void close liability payments should not
                                    close liability. Run the EFT pay cycle.      be included in the FIN2025.
                                    Make sure to include EFT payments
                                    that were created prior to MP 4.2.
 Payment Cancellations   14         Void/Stop several ACH payments and           Void close liability payments should not
                                    close liability. Run the ACH pay cycle.      be included in the FIN2025.
 Payment Cancellations   15         Test Undo Cancel for EFT payment.            The undo cancel should not be included
                                    Void an EFT payment; Undo Cancel;            in the FIN2025.
                                    run the EFT pay cycle.
 Payment Cancellations   16         Test Undo Cancel for ACH payment.            The undo cancel should not be included
                                    Void an ACH payment; Undo Cancel;            in the FIN2025.
                                    run the ACH pay cycle.
 Payment Cancellations   17         Test Escheat an ACH payment; run the         The escheat should be included in the
                                    ACH payment process.                         FIN2025.
 Payment Cancellations   18         Test Escheat an EFT payment; run the         The escheat should be included in the
                                    EFT payment process.                         FIN2025.
 File Regeneration       19         Run ACH File Regeneration; select            Validate payments in the FIN2025.
                                    Bank information; select ACH pay cycle
                                    and pay cycle sequence number.
 File Regeneration       20         Run EFT File Regeneration; select            Validate payments in the FIN2025.
                                    Bank information; select ACH pay cycle
                                    and pay cycle sequence number.
 Emails Notification     21         Generate emails for EFT payments;            Validate emails sent to vendors in the
                                    select EFT pay cycle and sequence            message log of emails.
                                    number.
                                    Enter text for the following: From Email,
                                    Subject Text, Opening Message and
                                    Footer Message.
 EFT Payments on the     22         Create several vouchers on the Excel         Validate the banking information default
 AP Voucher Upload                  spreadsheet; use separate payment,           from the CSU Elec Bank Info’ page
 [AP09009]                          run the AP Voucher Upload; run the           populated in every voucher created.
                                    Voucher Build; run the EFT payment
                                    process.                                     All payments should be included in the
                                                                                 FIN2025.
 ACH Payments on the     23         Create several vouchers on the Excel         Validate the banking information default
 AP Voucher Upload                  spreadsheet; use separate payment,           from the CSU Elec Bank Info’ page
 [AP09009]                          run the AP Voucher Upload; run the           populated in every voucher created.
                                    Voucher Build; run the EFT payment
                                    process.                                     All payments should be included in the
                                                                                 FIN2025.




Last Revised: 05/23/12                                                                                        Page 13 of 36
ACH&EFT Payment Processing                                                    CFS Modification Approval and Design Request
AP08001-CFS90                                                                                             Accounts Payable




Section Six: Object Changes
Objects listed in this section reflect the point-in-time when the modification is first released. New projects and
objects will be listed on their respective Modification Update Request forms. Please see Section One: Revision
History for a full list of associated update requests.

Important Note:
This section lists objects delivered with a project, but does not provide all details for each object. For complete
specifications on the PeopleSoft objects listed in this section, please use Application Designer to open and view
the project/object details.

Key: When completing the Action column, actions are
          New
          Altered
          Dropped
          N/A


 Project Name                               Description                                                        Action
 BSL_FS_AP_AP08001                          CSU ACH Payment Processing                                         N
 BSL_FS_AP_AP08001_20080521                 CSU ACH Payment Processing                                         N
                                            Modified the fields used for Immediate Origin and Immediate
                                            Destination
 BSL_FS_AP_AP08001_20090515                 CSU ACH Payment Processing                                         N
                                            Modified csuap028.sqc for both HD143286 and HD143093
 BSL_FS_AP_AP08001_20100315                 CSU ACH Payment Processing                                         N
                                            Applied changes on where to grab the value of filename
 BSL_FS_AP_AP08001_20100617                 Modify 3 SQLs in the Application Engine CSU_ACHEMAIL and           N
                                            add a new index G on the table PS_PAYMENT_TBL to improve
                                            on performance
 BSL_FS_AP_AP08001_20100923                 Modify 3 SQLs in the Application Engine CSU_ACHEMAIL to            N
                                            select PYMNT_METHOD of “EFT”
 BSL_CFS_AP_AP08001_20110407                New File Transmission page                                         N
 BSL_CFS_AP_AP08001_20110428                File Transmission page – added new field CSU_BANK_ID_NBR           N
 BSL_CFS_AP_AP08001_20110630                Updated csuap028.sqc                                               N
 BSL_CFS_AP_AP08001_20111221                Updated csuap029.sqr                                               N
 BSL_CFS_AP_AP08001_20120125                CSU_ACHEMAIL.Main.Section6 – remove Ordered hint to                N
                                            improve performance
 BSL_CFS_AP_AP08001_20120223                CSU ACH/EFT Payment Processing                                     N
                                            Add new layout CCD+
 BSL_CFS_AP_AP08001_20120425                CSU ACH/EFT Payment Processing                                     N
                                            Added the new page CSU Electronic Bank Info

Fields
 #    Field Name                Long Name            Short Name          Description         Type     Length       Action
      CSU_AUTO_ID               Automated            Auto UserID         CSU_AUTO_ID         Char     30           N
                                UserID



Last Revised: 05/23/12                                                                                         Page 14 of 36
ACH&EFT Payment Processing                                               CFS Modification Approval and Design Request
AP08001-CFS90                                                                                        Accounts Payable



 #    Field Name             Long Name           Short Name        Description         Type     Length       Action
      CSU_BID                Batch ID            Batch ID          CSU_BID             Char     14          N
      CSU_DBTYPE             Database Type       Database          CSU_DBTYPE          Char     1           N
      CSU_FILE_INBOUND       Bank Inbound File   Inbound Fle Loc   CSU_FILE_INB        Char     254         N
                             Location                              OUND
      CSU_PYMNT_TYPE         CSU Payment         Payment Type      CSU_PYMNT_T         Char     3           N
                             Type                                  YPE
      CSU_RID                Remote ID           Remote ID         CSU_RID             Char     8           N
      CSU_BANK_ID_NBR        Bank ID Number      Bank ID           CSU_BANK_ID         Char     5           N
                                                                   _NBR
      CSU_PYMNT_METHOD       CSU Payment         Payment Method    CSU_PYMNT_          Char     3           N
                             Method                                METHOD

Records and Views
 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_ACH_EML_AET                                     SQL Table

 Parent Record               Query Sec Record        Set Control Field              SQL View



 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_PYCYL_ST_VW                                     SQL View

 Parent Record               Query Sec Record        Set Control Field              SQL View
                                                                                    CSU_PYCYL_ST_VW

 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_RUN_ACHEML                                      SQL Table

 Parent Record               Query Sec Record        Set Control Field              SQL View



 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_RUN_AP_ACH                                      SQL Table

 Parent Record               Query Sec Record        Set Control Field              SQL View



 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_FT_SETUP                                        SQL Table

 Parent Record               Query Sec Record        Set Control Field              SQL View




 Record / View Name                                  Type                               Add to Data Warehouse?
 CSU_ELEC_BANK                                       SQL Table

 Parent Record               Query Sec Record        Set Control Field              SQL View




Last Revised: 05/23/12                                                                                   Page 15 of 36
ACH&EFT Payment Processing                                                   CFS Modification Approval and Design Request
AP08001-CFS90                                                                                            Accounts Payable




 Record / View Name                                      Type                               Add to Data Warehouse?
 CSU_ELEC_BANKVW                                         SQL View

 Parent Record                 Query Sec Record          Set Control Field              SQL View




Application Engine Programs
 App Engine Program Name              Description                                                         Action
 CSU_ACHEMAIL                         CSU ACH Payment Processing                                          N
 APVEDTDFPV                           AP Vchr Edit Dflt PVX SubProg                                       M
                                      4/25/2012 - Added Step24 under MAIN section.

Application Engine Sections
 App Engine Section Name              Description                                                         Action
 CSU_ACHEMAIL.MAIN                    Main description                                                    N
 CSU_ACHEMAIL.GET_INV                 Get Invoice Information                                             N
 CSU_ACHEMAIL.NO_EMAIL                Vendors w/o Emails                                                  N
 CSU_ACHEMAIL.SENDMAIL                Send Email Messages                                                 N
 APVEDTDFPV.MAIN                      APVEDTDFPV Main Section                                             N
                                      4/25/2012 – Added new step Step24. This new step consists of
                                      a SQL that updates the bank information of the voucher if the
                                      vendor's Bank setup is ‘default’ and Payment is specified either
                                      'ACH' or 'EFT'.

Components
 Component Name                       Description                                                         Action
 CSU_RUN_AP8001_EML                   CSU EFT Email Process                                               N
 CSU_RUN_CSUAP08001                   CSU ACH Regeneration                                                N
 BANK_EXTERNAL                        External Bank Accounts                                              M
 CSU_RUN_CSUAP029                     CSU ACH/EFT File Regeneration                                       M
                                      Changed the Item Label from “CSU ACH File Regeneration” to
                                      “CSU ACH/EFT File Regeneration”
 CSU_RUN_AP8001_EML                   CSU Generate EFT Emails                                             M
                                      Changed the Item Label from “CSU Generate ACH Emails” to
                                      “CSU Generate EFT Emails”
 BUS_UNIT_TBL_AP                      Payable Business Unit                                               M
                                      4/25/2012 – Added the new page CSU Electronic Bank Info

Menus
 Menu Name               Bar Name      Item Name                        Description                            Action
 CREATE_PAYMENTS         Process.      CSU_RUN_CSU_ACHEMAIL             Generate ACH Emails                    N
 CREATE_PAYMENTS         Process       CSU_RUN_CSUAP08001               CSU ACH File Regeneration              N
 CREATE_PAYMENTS         Process       CSU_RUN_CSUAP029                 CSU ACH/EFT File Regeneration          M
                                                                        Changed the Item Label from “CSU
                                                                        ACH File Regeneration” to “CSU


Last Revised: 05/23/12                                                                                        Page 16 of 36
ACH&EFT Payment Processing                                                   CFS Modification Approval and Design Request
AP08001-CFS90                                                                                            Accounts Payable



 Menu Name               Bar Name        Item Name                        Description                           Action
                                                                          ACH/EFT File Regeneration” and
                                                                          “CSU Generate ACH Emails” to
                                                                          “CSU Generate EFT Emails”


Pages
 Page Name                               Description                                                       Action
 CSU_RUN_AP8001_EML                      CSU EFT E-Mail using App Eng                                      N
 CSU_RUN_AP_ACH                          CSU ACH Regeneration RunCntl                                      M
                                          Removed Bank Information parameters
 CSU_RUN_AP_ACH                          CSU ACH Regeneration RunCntl – added EFT_WRK                      M
                                         derived/work record
 CSU_FT_SETUP                            File Transmission Setup                                           N
 CSU_FT_SETUP                            File Transmission Setup – added new field CSU_BANK_ID_NBR         M
 CSU_FT_SETUP                            File Transmission Setup – added new field VIEW_SELECTED           M
 CSU_ELEC_BANK                           4/25/2012 - CSU Electronic Bank Info page                         N

Process Definitions
 Process Definition Name                 Description                                                       Action
 CSUAP029                                CSU ACH File Regeneration                                         M
                                         Remove the component CSU_RUN_CSUAP029
 FIN2025                                 Add the component CSU_RUN_CSUAP029                                M

SQL
 SQL Name                                Description                                                       Action
 APVEDTDFPV.MAIN.Step24 (Do              See PeopleCode Appendix D Reference A                             M
 Select)
 APVEDTDFPV.MAIN.Step24 (SQL)            See PeopleCode Appendix D Reference B                             M
 CSU_ELEC_BANKVW                         See PeopleCode Appendix D Reference C                             N


Translate Values
                                               Status    Long Name                   Short Name            Action
 Field                   Value   EFFDT         A/I
 CSU_DBTYPE              P       01/01/1900    A         Production                  Prod                  N
 CSU_DBTYPE              T       01/01/1900    A         Non-Production              Test                  N
 CSU_PYMNT_TYPE          ACH     01/01/1900    A         ACH Payment                 ACH                   N
 CSU_PYMNT_TYPE          POS     01/01/1900    A         Positive Payment            PosPay                N

PeopleCode Tables
Please note: There are multiple types of PeopleCode. Tables are provided for the most common types - if other
types are delivered, please insert a new table and title it with the type of PeopleCode delivered. Enter N/A if no
PeopleCode is included in the tables listed below.

Record PeopleCode
 Record PeopleCode Name                                     Description                                    Action
 CSU_RUN_ACHEML.PAY_CYCLE_SEQ_NUM.RowInit                   See PeopleCode Appendix B Reference A


Last Revised: 05/23/12                                                                                         Page 17 of 36
ACH&EFT Payment Processing                                             CFS Modification Approval and Design Request
AP08001-CFS90                                                                                      Accounts Payable



 Record PeopleCode Name                                 Description                                 Action
 CSU_RUN_AP_ACH.LASTUPDDTTM.SaveEdit                    See PeopleCode Appendix B Reference B       Deleted
 CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM.RowInit               See PeopleCode Appendix B Reference C       Deleted
 CSU_FT_SETUP.BANK_CD_CPTY.FieldDefault                 See PeopleCode Appendix B Reference J       N
 CSU_FT_SETUP.CSU_DBTYPE.RowInit                        See PeopleCode Appendix B Reference K       N
 CSU_FT_SETUP.CSU_DBTYPE.SavePreChange                  See PeopleCode Appendix B Reference L       N
 CSU_FT_SETUP.VIEW_SELECTED.RowInit                     See PeopleCode Appendix B Reference M       N
 CSU_RUN_AP_ACH.PAY_CYCLE.RowInit                       See PeopleCode Appendix B Reference N       N
 CSU_RUN_AP_ACH.PAY_CYCLE.SaveEdit                      See PeopleCode Appendix B Reference O       N
 CSU_RUN_AP_ACH.PAY_CYCLE.SavePreChange                 See PeopleCode Appendix B Reference P       N
 PYMNT_VCHR_XREF.BANK_ACCT_KEY.RowInit                  See PeopleCode Appendix B Reference Q       N
 VOUCHER.VENDOR_ID.FieldChange                          See PeopleCode Appendix B Reference R       N

Application Engine PeopleCode
 App Engine PeopleCode Name                             Description                                 Action
 CSU_ACHEMAIL.GET_INV GBLdefault 1900-01-01             See PeopleCode Appendix B Reference D
 Step01 OnExecute
 CSU_ACHEMAIL.MAIN       GBLdefault 1900-01-01 Step04   See PeopleCode Appendix B Reference E
 OnExecute
 CSU_ACHEMAIL.MAIN       GBLdefault 1900-01-01 Step06   See PeopleCode Appendix B Reference F
 OnExecute
 CSU_ACHEMAIL.NO_EMAILGBLdefault 1900-01-01             See PeopleCode Appendix B Reference G
 Step01 OnExecute
 CSU_ACHEMAIL.SENDMAILGBLdefault 1900-01-01             See PeopleCode Appendix B Reference H
 Step01 OnExecute
 CSU_RUN_AP_ACH.PAY_CYCLE.SaveEdit                      See PeopleCode Appendix B Reference I

Component PeopleCode
 Component PeopleCode Name              Description                                                 Action



Component Record PeopleCode
 Component Record PeopleCode Name       Description                                                 Action



Component Record Field PeopleCode
 Component Record Field PeopleCode      Description                                                 Action



Page PeopleCode
 Name                                 Description                                                   Action




Last Revised: 05/23/12                                                                                  Page 18 of 36
ACH&EFT Payment Processing                                                       CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                Accounts Payable



Batch Module
 Object Type       Name          Description                                                                       Action
 SQR Process       FIN2025       EFT Format Program                                                                M
 SQR Process       FIN2025       EFT Format Program                                                                M
                                  Introduced the following new EFT layout codes used exclusively for Wells
                                   Fargo Bank’s ACH file format:
                                    - WFPPD – PPD format
                                    - WFCCD+ - CCD+ format
 SQR Process       CSUAP029      ACH/EFT File Regeneration and Automated Transmission Program                      N
 SQR Process       CSUAP029      ACH/EFT File Regeneration and Automated Transmission Program                      M
                                 12/21/2011 – Corrected the sorting of Payment Table
 SQC               CSUAP027      Clone of FINEFT.SQC                                                               N
 SQC               CSUAP028      Clone of FINEFT23.SQC                                                             N
 SQC               CSUAP028      Modified the fields used for Immediate Origin and Immediate Destination           M
 SQC               CSUAP028      Added code to grant executable permissions to shell script                        M
 SQC               CSUAP028      Modified code to sum up detail record 6 totals to match grand total in record 9   M
 SQC               CSUAP028      Applied the new requirement of Wells Fargo                                        M
 SQC               CSUAP028      Included an option of not to delete the file in non-production database           M
 SQC               CSUAP036      Clone of fineft94.sqc and applied Wells Fargo bank’s requirements for CCD+        N
 Crystal           APY2027       Modified PeopleSoft delivered APY2027-.RPT                                        M
 SQC               FINEFT        EFT Layout Routing                                                                M
                                  The customized sqc program csuap027.sqc is no longer used. This PS
                                   delivered fineft.sqc is used to call the EFT/ACH file creation using Wells
                                   Fargo Bank format.
                                  Use the following definitions:
                                    - C1_EFT_LAYOUT – PPD WFB
                                    - C2_EFT_LAYOUT – CCD+ WFB
 SQC               FINPYMNT      Payment File Generation Procedures                                                M
                                  ACH Implementation for Wells Fargo Bank
 SQC               APVNDPAY      AP VENDPAY_TMP Insertion and Deletion procedures                                  M
                                  ACH Implementation for Wells Fargo Bank

Other
 Object Type                 Name                                             Description                              Action
 Portal Registry             EMPLOYEE                                         CSU_RUN_AP8001_EML_GBL                   N
 Structures
 Portal Registry             EMPLOYEE                                         CSU_RUN_CSUAP08001_GBL                   N
 Structures
 Message Catalog Entries     1                                                CSU ACH Process Messages                 N
 Message Catalog Entries     2                                                CSU ACH Process Messages                 N
 Message Catalog Entries     3                                                CSU ACH Process Messages                 N
 Message Catalog Entries     4                                                CSU ACH Process Messages                 N
 Index                       PSGPAYMENT_TBL                                   New G index to improve                   N
                                                                              performance
 DMS Script                  BSL_CFS_AP_AP08001_20110407                      Added CSU_FT_SETUP to                    N
                                                                              CSU_QRY_TREE_BNKL1 query


Last Revised: 05/23/12                                                                                             Page 19 of 36
ACH&EFT Payment Processing                                         CFS Modification Approval and Design Request
AP08001-CFS90                                                                                  Accounts Payable



 Object Type             Name                                    Description                            Action
                         _Query_Tree_Import.dms                  tree
 SQL Script              Update_Payment_Format_Code_to_PPD.sql   Update payment format code into        N
                                                                 ‘PPD’
 Portal Registry         EMPLOYEE                                CSU_RUN_CSUAP029_GBL                   M
 Structures                                                      Changed the Portal Label from “CSU
                                                                 ACH File Regeneration” to “CSU
                                                                 ACH/EFT File Regeneration”
 Portal Registry         EMPLOYEE                                CSU_RUN_AP08001_EML_GBL                M
 Structures                                                      Changed the Portal Label from “CSU
                                                                 Generate ACH Emails” to “CSU
                                                                 Generate EFT Emails”
 Translate Value         CSU_PYMNT_TYPE.ACT                      Payment Type                           N
                                                                 Created a new one ACT (ACH
                                                                 Payment Test)
 SQL Script              CSU_UPD_EFT_LAYOUT_From_PPD_TO_         Update the EFT_LAYOUT_CD value         N
                         WFPPD.sql                               of “PPD” to “WFPPD”.
 Translate Value         CSU_PYMNT_METHOD.ACH                    4/25/2012 - CSU Payment Method         N
                                                                 (ACH)
 Translate Value         CSU_PYMNT_METHOD.EFT                    4/25/2012 - CSU Payment Method         N
                                                                 (EFT)
 SQL Script              Insert_ps_csu_elec_bank_values.sql      Insert rows to                         N
                                                                 PS_CSU_ELEC_BANK
 SQL Script              update_vendor_pay.sql                   Clear the Bank Information in Vendor   N
                                                                 Pay of all rows with Payment Method
                                                                 equal to ‘EFT’.




Last Revised: 05/23/12                                                                             Page 20 of 36
ACH&EFT Payment Processing                            CFS Modification Approval and Design Request
AP08001-CFS90                                                                     Accounts Payable




Appendix A: Report Sample and Specification Details

Wells Fargo ACH Specifications




PeopleSoft Mapping



    AP08001
ACH&EFTPaymentProcessing Worksheet.xls




Last Revised: 05/23/12                                                               Page 21 of 36
ACH&EFT Payment Processing                                                          CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                   Accounts Payable




Appendix B: PeopleCode
 Referenc      Code
 e
 A             CSU_RUN_ACHEML.PAY_CYCLE_SEQ_NUM = 0;
 B             CSU_RUN_AP_ACH.LASTUPDDTTM = %Datetime;
 C             CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM = 0;
 D             /* This procedure builds a list of invoices to be included in the email */
               Global string &ACH_MSG_INVOICES;


               &ACH_MSG_INVOICES = &ACH_MSG_INVOICES | Char(10);
               &ACH_MSG_INVOICES = &ACH_MSG_INVOICES | "Invoice #                      " | CSU_ACH_EML_AET.INVOICE_ID |
               Char(10);
               &ACH_MSG_INVOICES = &ACH_MSG_INVOICES | "Invoice Dt                      "|
               CSU_ACH_EML_AET.CSU_INV_DT_CHAR | Char(10);
               &ACH_MSG_INVOICES = &ACH_MSG_INVOICES | "Invoice Amt                         "|
               LTrim(CSU_ACH_EML_AET.CSU_GROSS_CHAR) | Char(10);
               If All(CSU_ACH_EML_AET.PYMNT_MESSAGE) Then
                &ACH_MSG_INVOICES = &ACH_MSG_INVOICES | "Message                             "|
               CSU_ACH_EML_AET.PYMNT_MESSAGE | Char(10);
               End-If;
 E             &LOOKUP_PRD = Find("PRD", CSU_ACH_EML_AET.DBNAME);
               /* IF This is run in a Non-Production Environment the emails will go to */
               /* the email address assigned to the OPRID who runs the process                   */
               /* If this is run in Production the Oprid does not have to have a EMAILID */
               If &LOOKUP_PRD = 0 Then
                 If CSU_ACH_EML_AET.NUMROWS <> 0 Then
                   Exit 0;
                 Else
                   MessageBox(0, "", 32000, 2, "Message not found.", CSU_ACH_EML_AET.OPRID);
                   MessageBox(0, "", 32000, 1, "Message not found.", "No Data Processed");
                   Exit 1;
                 End-If;
               Else
                 Exit 0;
               End-If;
 F             /* If there are vendors without emails print the log tag - Vendors Without Emails
                 and call a procedure to select all the vendors without emails assigned               */
               If CSU_ACH_EML_AET.NUMROWS <> 0 Then
                 MessageBox(0, "", 32000, 1, "Message not found.", "Vendors without Emails:");
                 Exit 0;
               Else
                 Exit 1;
               End-If;
 G             /* Print a message in the message log for every vendor/payment that does not have an email assigned */
               MessageBox(0, "", 32000, 4, "Message not found.", CSU_ACH_EML_AET.REMIT_VENDOR,
               CSU_ACH_EML_AET.NAME1, CSU_ACH_EML_AET.PYMNT_ID_REF);
 H             /* This procedure formats and sends an email to each Vendor/Payment */
               Global string &ACH_MSG_INVOICES;


Last Revised: 05/23/12                                                                                             Page 22 of 36
ACH&EFT Payment Processing                                                          CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                   Accounts Payable



 Referenc      Code
 e

               &MAIL_FLAGS = 0;
               &MAIL_SENDER = CSU_ACH_EML_AET.EMAIL_ADDR;


               &MAIL_CC = "";
               &MAIL_BCC = "";
               &MAIL_SUBJECT = CSU_ACH_EML_AET.MESSAGE_TEXT_2;
               /* If this is run in Production then use the email id attached to the vendor
                 otherwise use the email of the person running the process                    */
               &LOOKUP_PRD = Find("PRD", CSU_ACH_EML_AET.DBNAME);
               If &LOOKUP_PRD <> 0 Then
                 &MAIL_TO = CSU_ACH_EML_AET.EMAILID;
               Else
                 &MAIL_TO = CSU_ACH_EML_AET.EMAILID2;
                 &MAIL_SUBJECT = &MAIL_SUBJECT | "(" | CSU_ACH_EML_AET.EMAILID | ")"
               End-If;
               &MESSAGE = &MESSAGE | CSU_ACH_EML_AET.MESSAGE_CLAUSE | Char(10) | Char(10);
               &MESSAGE = &MESSAGE | "Payee                     " | CSU_ACH_EML_AET.NAME1 | Char(10);
               &MESSAGE = &MESSAGE | "Payment Ref #                 " | CSU_ACH_EML_AET.PYMNT_ID_REF | Char(10);
               &MESSAGE = &MESSAGE | "Payment Date                  " | CSU_ACH_EML_AET.CSU_PYMNT_DT_CHAR |
               Char(10);
               &MESSAGE = &MESSAGE | "In the Amount Of              " | LTrim(CSU_ACH_EML_AET.CSU_PYMNT_CHAR) |
               Char(10);
               &MESSAGE = &MESSAGE | " " | Char(10);
               &MESSAGE = &MESSAGE | "Invoices Paid:" | Char(10);
               &MESSAGE = &MESSAGE | &ACH_MSG_INVOICES | Char(10);
               &MESSAGE = &MESSAGE | " " | Char(10);
               &MESSAGE = &MESSAGE | CSU_ACH_EML_AET.NOTES_254 | Char(10);
               &RET = SendMail(&MAIL_FLAGS, &MAIL_TO, &MAIL_CC, &MAIL_BCC, &MAIL_SUBJECT, &MESSAGE, "",
               "", &MAIL_SENDER);
               MessageBox(0, "", 32000, 3, "Message not found.", CSU_ACH_EML_AET.EMAILID,
               CSU_ACH_EML_AET.NAME1, CSU_ACH_EML_AET.PYMNT_ID_REF);


               &ACH_MSG_INVOICES = "";
 I             If %Component = "CSU_RUN_CSUAP029" Then
                SQLExec("SELECT BANK_SETID, BANK_CD, BANK_ACCT_KEY FROM PS_CSU_PYCYL_ST_VW
               WHERE PAY_CYCLE = :1 AND PAY_CYCLE_SEQ_NUM = :2", CSU_RUN_AP_ACH.PAY_CYCLE,
               CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM, CSU_RUN_AP_ACH.BANK_SETID,
               CSU_RUN_AP_ACH.BANK_CD, CSU_RUN_AP_ACH.BANK_ACCT_KEY)
               End-If;
 J             /** For external accounts, default the Counterparty Key **/
               Evaluate %PanelGroup
               When PanelGroup.BANK_EXTERNAL
                 CSU_FT_SETUP.BANK_CD_CPTY = CSU_FT_SETUP.BANK_CD;
                 Break;
               When-Other
                 Break;



Last Revised: 05/23/12                                                                                             Page 23 of 36
ACH&EFT Payment Processing                                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                         Accounts Payable



 Referenc      Code
 e
               End-Evaluate;
 K             Component string &dbname;


               &dbname = Upper(%DbName);


               &fnd = Find("PRD", &dbname);
               If &fnd = 0 Then
                 UnGray(CSU_FT_SETUP.NBR_OF_HOURS);
               Else
                 Gray(CSU_FT_SETUP.NBR_OF_HOURS);
               End-If;
 L             Component string &dbname;


               &dbname = Upper(%DbName);


               &fnd = Find("PRD", &dbname);
               If &fnd = 0 Then
                 CSU_FT_SETUP.CSU_DBTYPE = "T";
               Else
                 CSU_FT_SETUP.CSU_DBTYPE = "P";
                 CSU_FT_SETUP.NBR_OF_HOURS = 0;
               End-If;
               CSU_FT_SETUP.LASTUPDOPRID = %UserId;
               CSU_FT_SETUP.LASTUPDDTTM = %Datetime;
               CSU_FT_SETUP.EXPIRES = %Datetime + (CSU_FT_SETUP.NBR_OF_HOURS * 3600);
 M             Component string &dbname;
               Component integer &fnd_prd, &fnd_pre;


               &dbname = Upper(%DbName);
               &fnd_prd = Find("PRD", &dbname);
               &fnd_pre = Find("PRE", &dbname);


               If &fnd_prd <> 0 /* Production */ Or
                   &fnd_pre <> 0 /* Pre-Production */ Then
                 Hide(CSU_FT_SETUP.VIEW_SELECTED);
               Else
                 UnHide(CSU_FT_SETUP.VIEW_SELECTED);
               End-If;
 N             /************************************************************************************/
               /* Date        Mod No. Remedy            Developer                            */
               /* 02/23/2012 AP08001 HD#215099 L. Reyes                                           */
               /************************************************************************************/
               CSU_RUN_AP_ACH.PAY_CYCLE = " ";
               CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM = 0;
 O             /************************************************************************************/
               /* Date        Mod No. Remedy            Developer                            */


Last Revised: 05/23/12                                                                                                   Page 24 of 36
ACH&EFT Payment Processing                                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                         Accounts Payable



 Referenc      Code
 e
               /* 02/23/2012 AP08001 HD#215099 L. Reyes                                                 */
               /************************************************************************************/
               /*If %Component = "CSU_RUN_CSUAP029" Then
                SQLExec("SELECT BANK_SETID, BANK_CD, BANK_ACCT_KEY FROM PS_CSU_PYCYL_ST_VW
               WHERE PAY_CYCLE = :1 AND PAY_CYCLE_SEQ_NUM = :2", CSU_RUN_AP_ACH.PAY_CYCLE,
               CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM, CSU_RUN_AP_ACH.BANK_SETID,
               CSU_RUN_AP_ACH.BANK_CD, CSU_RUN_AP_ACH.BANK_ACCT_KEY)
               End-If;*/
 P             /************************************************************************************/
               /* Date         Mod No. Remedy           Developer                                  */
               /* 02/23/2012 AP08001 HD#215099 L. Reyes                                                 */
               /************************************************************************************/
               Declare Function EFT_Parm PeopleCode EFT_WRK.PARMLIST FieldFormula;


               EFT_WRK.OPRID = %OperatorId;
               EFT_WRK.RUNCNTLID = CSU_RUN_AP_ACH.PAY_CYCLE;
               EFT_WRK.PARM1 = "R";
               EFT_WRK.PARM2 = CSU_RUN_AP_ACH.PAY_CYCLE;
               &Result = EFT_Parm(CSU_RUN_AP_ACH.PAY_CYCLE, CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM,
               &ParmList);
               If &Result = 0 Then
                    EFT_WRK.PARMLIST = &ParmList;
               Else
                    Error MsgGet(7250, 309, "Error loading parameter list");
               End-If;
               SQLExec("UPDATE PS_PYCYCL_STAT SET PAY_RUN_AP_STATUS = 'V' WHERE PAY_CYCLE = :1 AND
               PAY_CYCLE_SEQ_NUM = :2", CSU_RUN_AP_ACH.PAY_CYCLE,
               CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM);
               SQLExec("DELETE FROM PS_PYCYCL_STATTMP WHERE PAY_CYCLE = :1 AND
               PAY_CYCLE_SEQ_NUM = :2 AND PYMNT_METHOD IN ('EFT','ACH','BEF','GE')",
               CSU_RUN_AP_ACH.PAY_CYCLE, CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM);
               SQLExec("INSERT INTO PS_PYCYCL_STATTMP ( PAY_CYCLE , PAY_CYCLE_SEQ_NUM , BANK_SETID ,
               BANK_CD , BANK_ACCT_KEY , PYMNT_ID , PYMNT_METHOD , CURRENCY_PYMNT ,
               TOTAL_PYMNT_AMT , COMMIT_STATUS) SELECT PAY_CYCLE , PAY_CYCLE_SEQ_NUM , BANK_SETID
               , BANK_CD , BANK_ACCT_KEY , ' ' , PYMNT_METHOD , CURRENCY_PYMNT , SUM(PYMNT_AMT) , 0
               FROM PS_PAYMENT_TBL WHERE PYMNT_STATUS IN ('P','E') AND PAY_CYCLE = :1 AND
               PAY_CYCLE_SEQ_NUM = :2 AND PYMNT_METHOD IN ('EFT','ACH','BEF','GE') GROUP BY PAY_CYCLE,
               PAY_CYCLE_SEQ_NUM, BANK_SETID, BANK_CD, BANK_ACCT_KEY, PYMNT_METHOD,
               CURRENCY_PYMNT", CSU_RUN_AP_ACH.PAY_CYCLE, CSU_RUN_AP_ACH.PAY_CYCLE_SEQ_NUM);
 Q             /*****************************************************************************************/
               /* CSU Baseline: 4/25/2012                                                     */
               /* Mod No.       : AP08001                                                */
               /* Project ID : BSL_CFS_AP_AP08001_20120425                                                   */
               /* Developer : Leonard Reyes                                                    */
               /* Remedy         : HD#215099 - ACH Payment Processing                                        */
               /* Description : Read the values in CSU Elec Bank Info page to populate voucher                    */
               /*             payment information.                                       */
               /*****************************************************************************************/



Last Revised: 05/23/12                                                                                                   Page 25 of 36
ACH&EFT Payment Processing                                               CFS Modification Approval and Design Request
AP08001-CFS90                                                                                        Accounts Payable



 Referenc      Code
 e

               UpdateValue(PYMNT_PNLS_WRK.BANK_ACCT_KEY, CurrentRowNumber(),
               PYMNT_VCHR_XREF.BANK_ACCT_KEY);


               /* AP08001 04/25/2012 LReyes Begins*/
               If %Mode = "A" Then
                 &csu_bank_setid = " ";
                 &csu_bank_cd = " ";
                 &csu_bank_acct_key = " ";
                 &csu_pymnt_method = " ";
                 &csu_eft_layout_cd = " ";
                 &pymnt_method = " ";


                 If All(VOUCHER.VENDOR_ID) Then
                  SQLExec("SELECT A.BANK_CD, A.PYMNT_METHOD FROM PS_VENDOR_PAY A WHERE
               A.VENDOR_ID = :1 AND A.SETID = :2 AND A.VNDR_LOC= :3 AND A.EFFDT = (SELECT MAX(B.EFFDT)
               FROM PS_VENDOR_PAY B WHERE B.EFFDT <= %currentdatein AND A.VENDOR_ID = B.VENDOR_ID
               AND A.SETID = B.SETID AND A.VNDR_LOC = B.VNDR_LOC AND B.EFF_STATUS = 'A')",
               VOUCHER.VENDOR_ID, VENDOR.SETID, VOUCHER.VNDR_LOC, &csu_bank_cd, &csu_pymnt_method);
                 End-If;


                 If None(&csu_bank_cd) And
                      (&csu_pymnt_method = "ACH" Or
                         &csu_pymnt_method = "EFT") Then
                  SQLExec("SELECT BANK_SETID, BANK_CD, BANK_ACCT_KEY, PYMNT_METHOD, EFT_LAYOUT_CD
               FROM PS_CSU_ELEC_BANKVW WHERE BUSINESS_UNIT = :1 AND CSU_PYMNT_METHOD = :2",
               VOUCHER.BUSINESS_UNIT, &csu_pymnt_method, &csu_bank_setid, &csu_bank_cd, &csu_bank_acct_key,
               &pymnt_method, &csu_eft_layout_cd);
                   If All(&csu_bank_setid) Then
                      PYMNT_VCHR_XREF.BANK_SETID = &csu_bank_setid;
                      PYMNT_VCHR_XREF.BANK_CD = &csu_bank_cd;
                      PYMNT_VCHR_XREF.BANK_ACCT_KEY = &csu_bank_acct_key;
                      PYMNT_VCHR_XREF.PYMNT_METHOD = &pymnt_method;
                      PYMNT_VCHR_XREF.EFT_LAYOUT_CD = &csu_eft_layout_cd;
                   End-If;
                 End-If;
               End-If;
               /* AP08001 04/25/2012 LReyes Ends*/
 R             import AP:Voucher:Defaulting:*;


               Declare Function do_vendor PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function intl_addr_ln1 PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function AllowFormat PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function get_vnd_dfhi_recvar PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function set_cursor PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function intl_city_st_pst_ctry PeopleCode FUNCLIB_FS.ADDRESS_USE FieldFormula;
               Declare Function det_po_id_prompt PeopleCode FUNCLIB_APINTFC.PO_ID FieldFormula;



Last Revised: 05/23/12                                                                                  Page 26 of 36
ACH&EFT Payment Processing                                                       CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                Accounts Payable



 Referenc      Code
 e
               Declare Function det_po_id_prompt_fed PeopleCode FUNCLIB_APINTFC.PO_ID FieldFormula;
               Declare Function open_tp_doc_type PeopleCode VCHR_3PRD_WRK.VCHR_TP_DOC_TYPE FieldFormula;
               Declare Function chk_pnlgrp_type PeopleCode FUNCLIB_AP.VCHR_PNLGRP_TYPE FieldFormula;
               Declare Function iu_vndr_affiliate PeopleCode VOUCHER.VENDOR_ID RowInit;
               Declare Function chk_exs_vndr_appl PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function set_vndr_exs_flds PeopleCode FUNCLIB_AP.VENDOR_ID FieldFormula;
               Declare Function Reset_VAT_Dflts_For_Line PeopleCode FUNCLIB_AP.BUSINESS_UNIT FieldFormula;
               Declare Function doc_type_change PeopleCode VOUCHER.DOC_TYPE FieldChange;
               Declare Function TrackVATRowChanges PeopleCode FUNCLIB_VAT.DEFAULT_FUNCTIONS FieldFormula;


               Component AP:Voucher:Defaulting:VoucherDefaultHierarchy &VchDfltHier;
               Component AP:Voucher:Defaulting:VoucherProcessingControl &VchProcCntl;
               Component Record &VND_LVL_DFHI_REC;
               Component boolean &VCHEXP_THIRD_FLG, &VCHEXP_ADJST_FLG, &VCHEXP_CORR_FLG, &XP_FLG;
               Component Record &VCHEXP_VND_DFH_REC;
               Component string &EXD_PTP_APPL, &STX_PTP_APPL, &CSD_PTP_APPL;


               Local Record &rWRK;
               Local Field &fVAT_PB;


               /*sc*/
               Function reset_currency();
                 /**** DSAOJI 12-11-02
               Changing the code to use rowsets instead of fetchvalue and update value. COmmenting out the old code to
               keep a copy of the old version. The commented code can be deleted after the new code has been tested out. */


                 &ACTIVE_VCHR_LN = ActiveRowCount(VOUCHER_LINE.VOUCHER_ID);
                 For &VCHR_LN = 1 To &ACTIVE_VCHR_LN
                   UpdateValue(VOUCHER_LINE.TXN_CURRENCY_CD, &VCHR_LN, VOUCHER.TXN_CURRENCY_CD);
                  &ACTIVE_DSTRB_LN = ActiveRowCount(VOUCHER_LINE.VOUCHER_ID, &VCHR_LN,
               DISTRIB_LINE.VOUCHER_ID);
                   For &DISTRIB_LN = 1 To &ACTIVE_DSTRB_LN
                   UpdateValue(VOUCHER_LINE.VOUCHER_ID, &VCHR_LN, DISTRIB_LINE.TXN_CURRENCY_CD,
               &DISTRIB_LN, VOUCHER.TXN_CURRENCY_CD);
                   End-For;
                 End-For;
                 &ACTIVE_PYMNT_CNT = ActiveRowCount(PYMNT_VCHR_XREF.PYMNT_CNT);
                 For &PYMNT_CNT = 1 To &ACTIVE_PYMNT_CNT
                 UpdateValue(PYMNT_VCHR_XREF.TXN_CURRENCY_CD, &PYMNT_CNT,
               VOUCHER.TXN_CURRENCY_CD);
                 UpdateValue(PYMNT_XREF_WRK.TXN_CURRENCY_CD, &PYMNT_CNT,
               VOUCHER.TXN_CURRENCY_CD);
                 End-For;
                 /**********************************/


                 /* Local Rowset &voucherline, &distribline, &pymnt_vchr_xref;




Last Revised: 05/23/12                                                                                          Page 27 of 36
ACH&EFT Payment Processing                                                       CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                Accounts Payable



 Referenc      Code
 e
                    &voucherline = GetRowset(Record.VOUCHER_LINE);
                    For &VCHR_LN = 1 To &voucherline.ActiveRowCount
                 &voucherline(&VCHR_LN).VOUCHER_LINE.TXN_CURRENCY_CD.Value =
               VOUCHER.TXN_CURRENCY_CD;


                  &distribline =
               GetLevel0()(1).GetRowset(Record.VOUCHER_LINE).GetRow(&VCHR_LN).GetRowset(Record.DISTRIB_LINE
               );
                     For &DISTRIB_LN = 1 To &distribline.ActiveRowCount
                  &distribline(&DISTRIB_LN).DISTRIB_LINE.TXN_CURRENCY_CD.Value =
               VOUCHER.TXN_CURRENCY_CD;
                     End-For;


                    End-For;


                    &pymnt_vchr_xref = GetRowset(Scroll.PYMNT_VCHR_XREF);
                    For &PYMNT_CNT = 1 To &pymnt_vchr_xref.ActiveRowCount
                 &pymnt_vchr_xref(&PYMNT_CNT).PYMNT_VCHR_XREF.TXN_CURRENCY_CD.Value =
               VOUCHER.TXN_CURRENCY_CD;
                 &pymnt_vchr_xref(&PYMNT_CNT).PYMNT_XREF_WRK.TXN_CURRENCY_CD.Value =
               VOUCHER.TXN_CURRENCY_CD;
                    End-For;
               */


               End-Function;



               /*==================== Main Line Program ====================*/
               &VchDfltHier = create AP:Voucher:Defaulting:VoucherDefaultHierarchy(GetRecord());
               rem--Process user change in Vendor ID (resolve new defaults per default hierarchy);
               If &XP_FLG Then
                    If IsSearchDialog() Then
                     Exit;
                    End-If;


                    rem--Get new defaults per change in Vendor ID, (on Add) reapply them to voucher header;
                    &VchDfltHier.DoDfHiDriverChange(GetField());
                    Evaluate %Mode
                    When "A"
                    When "E"
                     &VchDfltHier.DefaultAll();
                    End-Evaluate;


                    rem--Do other Vendor-related initializations;
                    &PYMNT_ROW = 0;
                    &VOUCHER_ROW = 0;
                    &ADDRESS_SEQ_NUM = 0;



Last Revised: 05/23/12                                                                                          Page 28 of 36
ACH&EFT Payment Processing                                                       CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                Accounts Payable



 Referenc      Code
 e
                 &OLD_DOC_TYPE = VOUCHER.DOC_TYPE;
                 do_vendor(&PYMNT_ROW, &VOUCHER_ROW, &ADDRESS_SEQ_NUM, True);
                 If VCHR_PANELS_WRK.DOC_SEQ = "Y" And
                      VOUCHER.DOC_TYPE <> &OLD_DOC_TYPE Then
                   doc_type_change(&OLD_DOC_TYPE);
                 End-If;


                VCHR_PANELS_WRK.VENDOR_NAME_SHORT =
               &VND_LVL_DFHI_REC.VENDOR_NAME_SHORT.Value;


                 If &VND_LVL_DFHI_REC.WTHD_SW.Value = "Y" Then
                   UnHide(VCHR_HDR_WRK.XFR_WTHD_PB);
                 Else
                   Hide(VCHR_HDR_WRK.XFR_WTHD_PB);
                 End-If;


                 If &VCHEXP_THIRD_FLG Then
                   UnGray(VCHR_HDR_WRK.GOTO_MTCH_WRK);
                 End-If;



                rem--(Rel 8.4: InterUnit Vendor defaults)--on change in Vendor, if feature enabled for Bus Unit and InterUnit
               Vendor, set/reset voucher header Vndr Affiliate value (used to subsequently default down to new distrib lines);
                 &VENDOR_CHANGE = True;
                 iu_vndr_affiliate(&VENDOR_CHANGE);


                 set_cursor();


                 rem--AP600/JR 06/14/96--format & display international city/state/postal address line;
                 &VNDR_CITY_TWN1 = VCHR_PANELS_WK3.CITY;
                 &VNDR_CNTY_TWN2 = VCHR_PANELS_WK3.COUNTY;
                 &VNDR_ST_PROV = VCHR_PANELS_WK3.STATE;
                 &VNDR_POSTAL = VCHR_PANELS_WK3.POSTAL;
                 &VNDR_COUNTRY = VCHR_PANELS_WK3.COUNTRY;
                 &LOCAL_COUNTRY = INSTALLATION.COUNTRY;
                VCHR_PANELS_WK3.ADDR_CITY_ST_POST = intl_city_st_pst_ctry(&VNDR_CITY_TWN1,
               &VNDR_CNTY_TWN2, &VNDR_ST_PROV, &VNDR_POSTAL, &VNDR_COUNTRY, &LOCAL_COUNTRY);
                 rem VCHR_PANELS_WK3.ADDRESS1_VNDR = intl_addr_ln1(GetRecord(Record.VCHR_PANELS_WK3));
                 AllowFormat(GetRecord(Record.VCHR_PANELS_WK3), GetRecord(Record.VCHR_PANELS_WK3));
                 If INSTALLATION.PO = "Y" Then
                   det_po_id_prompt();
                   If VOUCHER.VOUCHER_STYLE = "PPAY" Then
                      det_po_id_prompt_fed();
                   End-If;
                 End-If;
                 open_tp_doc_type();




Last Revised: 05/23/12                                                                                            Page 29 of 36
ACH&EFT Payment Processing                                                                  CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                           Accounts Payable



 Referenc      Code
 e
                 Evaluate True
                 When &VCHEXP_ADJST_FLG
                 When &VCHEXP_CORR_FLG
                   VCHR_3PRD_WRK.VENDOR_ID = VOUCHER.VENDOR_ID;
                   VCHR_3PRD_WRK.VENDOR_NAME_SHORT = VCHR_PANELS_WRK.VENDOR_NAME_SHORT;
                   VCHR_3PRD_WRK.BUSINESS_UNIT = VOUCHER.BUSINESS_UNIT;
                 End-Evaluate;


               Else
                 /*-----------------------beginning of mainline------------------------*/
                 If Not (IsSearchDialog()) Then
                   &PYMNT_ROW = 0;
                   &VOUCHER_ROW = 0;
                   &ADDRESS_SEQ_NUM = 0;
                   &OLD_DOC_TYPE = VOUCHER.DOC_TYPE;
                   do_vendor(&PYMNT_ROW, &VOUCHER_ROW, &ADDRESS_SEQ_NUM, True);
                   If VCHR_PANELS_WRK.DOC_SEQ = "Y" And
                         VOUCHER.DOC_TYPE <> &OLD_DOC_TYPE Then
                      doc_type_change(&OLD_DOC_TYPE);
                   End-If;
                   VCHR_PANELS_WRK.VENDOR_NAME_SHORT = VENDOR.VENDOR_NAME_SHORT;
                   If VENDOR.WTHD_SW = "Y" Then
                      UnHide(VCHR_HDR_WRK.XFR_WTHD_PB);
                   Else
                      Hide(VCHR_HDR_WRK.XFR_WTHD_PB);
                   End-If;
                   chk_pnlgrp_type("THIRD", &PNLGRP_RESULT);
                   If &PNLGRP_RESULT = "Y" And
                         All(VOUCHER.VENDOR_ID) Then
                      UnGray(VCHR_HDR_WRK.GOTO_MTCH_WRK);
                   End-If;


                   rem--Reset Vendor/Location-level component record default values;
                   If All(VOUCHER.VENDOR_ID) Then
                      If None(VOUCHER.VENDOR_SETID) Then
                    VOUCHER.VENDOR_SETID = GetSetId("BUSINESS_UNIT", VOUCHER.BUSINESS_UNIT,
               "VENDOR", "");
                      End-If;
                   get_vnd_dfhi_recvar(VOUCHER.VENDOR_SETID, VOUCHER.VENDOR_ID, VOUCHER.VNDR_LOC,
               &VCHEXP_VND_DFH_REC);
                   End-If;


                  rem--(Rel 8.4: InterUnit Vendor defaults)--on change in Vendor, if feature enabled for Bus Unit and InterUnit
               Vendor, set/reset voucher header Vndr Affiliate value (used to subsequently default down to new distrib lines);
                   &VENDOR_CHANGE = True;
                   iu_vndr_affiliate(&VENDOR_CHANGE);




Last Revised: 05/23/12                                                                                                     Page 30 of 36
ACH&EFT Payment Processing                                                       CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                Accounts Payable



 Referenc      Code
 e
                   set_cursor();


                   rem--AP600/JR 06/14/96--format & display international city/state/postal address line;
                   &VNDR_CITY_TWN1 = VCHR_PANELS_WK3.CITY;
                   &VNDR_CNTY_TWN2 = VCHR_PANELS_WK3.COUNTY;
                   &VNDR_ST_PROV = VCHR_PANELS_WK3.STATE;
                   &VNDR_POSTAL = VCHR_PANELS_WK3.POSTAL;
                   &VNDR_COUNTRY = VCHR_PANELS_WK3.COUNTRY;
                   &LOCAL_COUNTRY = INSTALLATION.COUNTRY;
                 VCHR_PANELS_WK3.ADDR_CITY_ST_POST = intl_city_st_pst_ctry(&VNDR_CITY_TWN1,
               &VNDR_CNTY_TWN2, &VNDR_ST_PROV, &VNDR_POSTAL, &VNDR_COUNTRY, &LOCAL_COUNTRY);
                    rem VCHR_PANELS_WK3.ADDRESS1_VNDR =
               intl_addr_ln1(GetRecord(Record.VCHR_PANELS_WK3));
                   AllowFormat(GetRecord(Record.VCHR_PANELS_WK3), GetRecord(Record.VCHR_PANELS_WK3));
                   If INSTALLATION.PO = "Y" Then
                      det_po_id_prompt();
                      If VOUCHER.VOUCHER_STYLE = "PPAY" Then
                         det_po_id_prompt_fed();
                      End-If;
                   End-If;
                   open_tp_doc_type();
                 End-If;


                 chk_pnlgrp_type("ADJUST", &PNLGRP_RESULT);
                 chk_pnlgrp_type("CORR", &PNLGRP_RESULT_COR);
                 If &PNLGRP_RESULT = "Y" Then
                   VCHR_3PRD_WRK.VENDOR_ID = VOUCHER.VENDOR_ID;
                   VCHR_3PRD_WRK.VENDOR_NAME_SHORT = VCHR_PANELS_WRK.VENDOR_NAME_SHORT;
                   VCHR_3PRD_WRK.BUSINESS_UNIT = VOUCHER.BUSINESS_UNIT;
                 End-If;


                 If All(VOUCHER.VAT_ENTITY.Value) And
                      VOUCHER.VAT_DFLT_DONE_FLG.Value = "Y" Then
                   TrackVATRowChanges("Voucher", GetLevel0()(1), CreateArray(Field.VENDOR_ID.Name));
                   &rWRK = GetRow().GetRecord(Record.VCHR_HDR_WRK);
                   &fVAT_PB = &rWRK.GetField(Field.XFR_VAT_HDR_PB);
                   &fVAT_PB.Label = &fVAT_PB.GetLongLabel("VAT_REVIEW");
                   &fVAT_PB.LabelImage = Image.PS_STATUS_CHANGE_ALERT_ICN;
                   &fVAT_PB.Style = "PABOLDBLUETEXT";
                   &rWRK.GetField(Field.XFR_VAT_SUMM_PB).Style = "PABOLDBLUETEXT";
                 End-If;
               End-If; /* &XP_FLG */


               rem--Set India fields, When the Vendor/Location is applicable for Excise/Sales tax/Custom Duty;
               If (&EXD_PTP_APPL = "Y" Or
                   &STX_PTP_APPL = "Y" Or
                   &CSD_PTP_APPL = "Y") And


Last Revised: 05/23/12                                                                                           Page 31 of 36
ACH&EFT Payment Processing                                                                CFS Modification Approval and Design Request
AP08001-CFS90                                                                                                         Accounts Payable



 Referenc      Code
 e
                     All(VOUCHER.VENDOR_ID, VOUCHER.VNDR_LOC) Then
                    chk_exs_vndr_appl(VOUCHER.BUSINESS_UNIT, VOUCHER.VENDOR_ID, VOUCHER.VNDR_LOC);
                    If &CSD_PTP_APPL <> "Y" Then
                     set_vndr_exs_flds();
                    End-If;
               End-If;


               /*****************************************************************************************/
               /* CSU Baseline: 4/25/2012                                                     */
               /* Mod No.       : AP08001                                                */
               /* Project ID : BSL_CFS_AP_AP08001_20120425                                               */
               /* Developer : Leonard Reyes                                                    */
               /* Remedy        : HD#215099 - ACH Payment Processing                                         */
               /* Description : Read the values in CSU Elec Bank Info page to populate voucher                    */
               /*             payment information.                                       */
               /*****************************************************************************************/


               /* AP08001 04/25/2012 LReyes Begins*/
               If %Mode = "A" Then
                    &csu_bank_setid = " ";
                    &csu_bank_cd = " ";
                    &csu_bank_acct_key = " ";
                    &csu_pymnt_method = " ";
                    &csu_eft_layout_cd = " ";
                    &pymnt_method = " ";


                    If All(VOUCHER.VENDOR_ID) Then
                  SQLExec("SELECT A.BANK_CD, A.PYMNT_METHOD FROM PS_VENDOR_PAY A WHERE
               A.VENDOR_ID = :1 AND A.SETID = :2 AND A.VNDR_LOC= :3 AND A.EFFDT = (SELECT MAX(B.EFFDT)
               FROM PS_VENDOR_PAY B WHERE B.EFFDT <= %currentdatein AND A.VENDOR_ID = B.VENDOR_ID
               AND A.SETID = B.SETID AND A.VNDR_LOC = B.VNDR_LOC AND B.EFF_STATUS = 'A')",
               VOUCHER.VENDOR_ID, VENDOR.SETID, VOUCHER.VNDR_LOC, &csu_bank_cd, &csu_pymnt_method);
                    End-If;


                    If None(&csu_bank_cd) And
                       (&csu_pymnt_method = "ACH" Or
                         &csu_pymnt_method = "EFT") Then
                  SQLExec("SELECT BANK_SETID, BANK_CD, BANK_ACCT_KEY, PYMNT_METHOD, EFT_LAYOUT_CD
               FROM PS_CSU_ELEC_BANKVW WHERE BUSINESS_UNIT = :1 AND CSU_PYMNT_METHOD = :2",
               VOUCHER.BUSINESS_UNIT, &csu_pymnt_method, &csu_bank_setid, &csu_bank_cd, &csu_bank_acct_key,
               &pymnt_method, &csu_eft_layout_cd);
                     If All(&csu_bank_setid) Then
                       &ACTIVE_BANK_SETID = ActiveRowCount(PYMNT_VCHR_XREF.BANK_SETID);
                       For &BANK_SETID_ROW = 1 To &ACTIVE_BANK_SETID
                         UpdateValue(PYMNT_VCHR_XREF.BANK_SETID, &BANK_SETID_ROW, &csu_bank_setid);
                         UpdateValue(PYMNT_VCHR_XREF.BANK_CD, &BANK_SETID_ROW, &csu_bank_cd);
                         UpdateValue(PYMNT_VCHR_XREF.BANK_ACCT_KEY, &BANK_SETID_ROW,



Last Revised: 05/23/12                                                                                                   Page 32 of 36
ACH&EFT Payment Processing                                            CFS Modification Approval and Design Request
AP08001-CFS90                                                                                     Accounts Payable



 Referenc      Code
 e
               &csu_bank_acct_key);
                         UpdateValue(PYMNT_VCHR_XREF.PYMNT_METHOD, &BANK_SETID_ROW, &pymnt_method);
                         UpdateValue(PYMNT_VCHR_XREF.EFT_LAYOUT_CD, &BANK_SETID_ROW, &csu_eft_layout_cd);
                      End-For;
                   End-If;
                 End-If;
               End-If;
               /* AP08001 04/25/2012 LReyes Ends*/




Last Revised: 05/23/12                                                                               Page 33 of 36
ACH&EFT Payment Processing                                          CFS Modification Approval and Design Request
AP08001-CFS90                                                                                   Accounts Payable




Appendix C: Index
 Reference       Code
 A               PS_PAYMENT_TBL Index G


                 CREATE INDEX PSGPAYMENT_TBL ON PS_PAYMENT_TBL (PAY_CYCLE,
                     PAY_CYCLE_SEQ_NUM) TABLESPACE PSINDEX STORAGE (INITIAL 40000 NEXT
                     100000 MAXEXTENTS UNLIMITED PCTINCREASE 0) PCTFREE 10 PARALLEL
                     NOLOGGING
                 /
                 ALTER INDEX PSGPAYMENT_TBL NOPARALLEL LOGGING
                 /




Last Revised: 05/23/12                                                                             Page 34 of 36
ACH&EFT Payment Processing                                         CFS Modification Approval and Design Request
AP08001-CFS90                                                                                  Accounts Payable




Appendix D: SQL
 Reference       SQL
 A               %SelectInit(BUSINESS_UNIT, VOUCHER_ID, PYMNT_CNT, BANK_SETID, BANK_CD,
                 BANK_ACCT_KEY, PYMNT_METHOD, EFT_LAYOUT_CD)
                  SELECT DISTINCT A.BUSINESS_UNIT
                  ,A.VOUCHER_ID
                  ,A.PYMNT_CNT
                  ,C.BANK_SETID
                  ,C.BANK_CD
                  ,C.BANK_ACCT_KEY
                  ,C.PYMNT_METHOD
                  ,C.EFT_LAYOUT_CD
                  FROM %Table(VED_PVX_TAO) A
                  , PS_VENDOR_PAY B
                  , PS_CSU_ELEC_BANKVW C
                  WHERE A.PROCESS_INSTANCE = %ProcessInstance
                   AND A.REMIT_SETID = B.SETID
                   AND A.REMIT_VENDOR = B.VENDOR_ID
                   AND A.VNDR_LOC = B.VNDR_LOC
                   AND B.EFFDT = (
                  SELECT MAX(BB.EFFDT)
                  FROM PS_VENDOR_PAY BB
                  WHERE BB.EFFDT <= %CurrentDateIn
                   AND B.VENDOR_ID = BB.VENDOR_ID
                   AND B.SETID = BB.SETID
                   AND B.VNDR_LOC = BB.VNDR_LOC
                   AND BB.EFF_STATUS = 'A')
                   AND B.BANK_CD = ' '
                   AND B.PYMNT_METHOD IN ('ACH', 'EFT')
                   AND A.BUSINESS_UNIT = C.BUSINESS_UNIT
                   AND B.PYMNT_METHOD = C.CSU_PYMNT_METHOD


 B               UPDATE %Table(VED_PVX_TAO)
                  SET BANK_SETID = %Bind(BANK_SETID), BANK_CD = %Bind(BANK_CD), BANK_ACCT_KEY =
                 %Bind(BANK_ACCT_KEY), PYMNT_METHOD = %Bind(PYMNT_METHOD), EFT_LAYOUT_CD =
                 %Bind(EFT_LAYOUT_CD)
                  WHERE PROCESS_INSTANCE = %ProcessInstance
                   AND BUSINESS_UNIT = %Bind(BUSINESS_UNIT)
                   AND VOUCHER_ID = %Bind(VOUCHER_ID)
                   AND PYMNT_CNT = %Bind(PYMNT_CNT)


 C               SELECT DISTINCT A.BUSINESS_UNIT
                  ,A.CSU_PYMNT_METHOD
                  ,A.BANK_SETID
                  ,A.BANK_CD
                  ,A.BANK_ACCT_KEY
                  ,A.PYMNT_METHOD



Last Revised: 05/23/12                                                                            Page 35 of 36
ACH&EFT Payment Processing                                 CFS Modification Approval and Design Request
AP08001-CFS90                                                                          Accounts Payable



 Reference       SQL
                 ,B.EFT_LAYOUT_CD
                  FROM PS_CSU_ELEC_BANK A
                  ,PS_BANK_ACCT_MTHD B
                  WHERE A.BANK_SETID = B.SETID
                   AND A.BANK_CD = B.BANK_CD
                   AND A.BANK_ACCT_KEY = B.BANK_ACCT_KEY
                   AND A.PYMNT_METHOD = B.PYMNT_METHOD




Last Revised: 05/23/12                                                                    Page 36 of 36

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:33
posted:7/27/2012
language:Latin
pages:36